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j{4£fc 

LOS PROGRRHRS 

_ » 


MONSTER 


50 MODE J. 


260 SOTO 310 

270 F'RINT TAB(20-LEN(aí)/2) :FOR 


a=l 


TO LEN(aí) 





280 

290 

bí=MIDÍ(ai,a,1) 
NEXT a 

: PRINT 

t 

)i ; : 

IF bí<>" 

II 

THEI\ 

1 F 



300 

PRINT:F'RINT :FQR 

a : 

= 1 TO 

200 

:NEXT a sRETURN 



7) 


310 REM *** INICIO I 

DEL PROGRAMA *** 










320 Ai= " << MONSTER 

> > ": GOSUB 270 : PRI NT : AÍ 

= "DE 

•STRUYE 

A 

LOS 

I MOAS 

iOR 

ES":GOSUB 270:AÍ="C( 

DIN 

TU LASER DE 

TRES GANALE 

;:s M :( 

30SUB 

i 

70 




330 P 

■RINT:AÍ="A LOS 

c 

1NCO F 

•ALLOS F 

’ERDERAS 

" : GOSUB 

270 

i ¡ F 

: 'R1N' 

T : 

Ai- " 

CO 


<5 

































































iH **4¡iMswgi 

s R DÉi*áí 

S. **** 

fU** 























30 REM #*#*#*#* G.T. 
40 REM 












































50 MODE 0 


















CE 




60 INK 0,0:1NK 1,26: 

INK 2,7 

: INK 3, 

18 





















70 PAPER 0 :BORDER 0 
























80 ORIGIN 318,210 



















90 FOR a=0 TO 2*PI S 

TEP PI/70 















CE 




100 F’LOT 0,0,2 

150#SIN 























110 DRAW 3üü V CuS(ñ) i 
120 DRAWR 0,30*SIN(a 

1 QA KICTYT 

(a) 






















) y J 
























un prtmt rwBif?9urwRtm ■ 























CE 




150 LOCATE 8,12 



























160 PRINT "MONSTER" 


























170 PRINT CHRí(22)+CHRÍ(0): 





















180 INK 2,7,0:INK 3 

0,18 










i 










190 FOR a-1 TO 300:E 

ÍOUND 1 

a , 1 , 1 5 : 

NEXT a 
















& 



200 INK 2,18,7:INK C 

3,7,18 






















210 FOR a=300 TO 1 E 

3TEP “2: 

SOUND 1 

,a 

,1 :! 

SOUND 

D 

4L. 

a> 

C2 

, 1 sNEXT 

a 








A 



220 INK 2,7:INK 3,1£ 
























230 FOR a=l TO 500:1' 

■JEXT a 





T 


5C 
















¿HV r Urv a-U IU DU : f- hl i IM 1 LriKÍ k f ) :("UK 

b = 

= 1 

D 

¡NtX 1 

o : iMt a i a 











NTROL.ES ü " i GOSUB 270 s Aí = " CURSOR ARRIBA . ARRIBA " s GOSUB 270 : Aí= " CIJRS 
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OR ABAJO. ABAJO":GOSUB 270:Aí="1.2.3. DISPARAN LASERS" :GOSUB 270 
340 PRINT:A*="PULSA -S- PARA EMPEZAR":GÜSUB 270 
350 IF IIMKEY (60) < >0 THEN 350 
360 GQSLJB 680 

370 INK 0,0:PAPER O :BORDER 0:M0DE O 
380 INK 1,26:1NK 2,15:1NK 3,12 
390 INK 4,23:INK 5,17 

4 O O FEN 2 : PRIN I a a a a a aaaaaaaaa ¿a 3 

aa aaaaaaaaaaaaaaaaaaaaa"; 

410 PEN 3 :FOR A=6 TG 24:PRINT"a a a a a a" ; :NEXT A 
420 PRINT STRING#(20,"a"); 

430 WINDÜW 2,19,6,24 
440 WINDOW #1,2,19,2,4 
450 F'=0 :FA=0 :GOSUB 650 
460 X-1O:XB-X 

470 C= INT (RND*3) :C=1+(7*C) :YM=C+INT(RND*4) 

480 XM=1 

490 IF NOT INKEY(O) THEN X=X-1:IF X<1 THEN X=1 
500 IF NOT INKEY (2) THEN X=X+1:IF X>19 TI-IEN X = 19 
510 LOCATE 6 , XB :PRINT" " :LOCATE 13 , XB :PRINT" " 

520 PEN 4: LOCATE 6 , X : PR I NT " b " : LOCATE 13 , X : F‘R I NT " b " 

530 XB=X 

540 LOCATE YM,XM:PRINT" 

550 XM=XM+l:IF XM>19 THEN'SOUND 4,200,25,15,0,Ó,31:FA=FA+1sGOSUB 
650;GOTO 470 

560 PEN 5:LOCATE YM , XM :F'RINT"d " ; 

570 IF NOT INKEY(64) THEN Y-l:GOTO 620 
580 IF NOT INKEY(65) THEN Y=8:G0T0 620 
590 IF NOT INKEY(57) THEN Y=15:G0T0 620 
600 REM 
610 GOTO 490 

620 PEN 1 :ENT 1,100,-1,1:LOCATE Y,X:PRINT"cccc";:SOUND 1,100,15,1 
5,0,1 

630 M=0 : IF XM=X AND Y=C THEN SOUND 2 ,50,10,15:P=P+5:GOSUB 650:M=1 

640 LOCATE Y,X:PRINT" ";:IF M=1 THEN 470 ELSE GOTO 600 

650 LOCATE # 1 ,2,2:PRINT# 1 , "PT : " ;P :LOCATE #1 ,13,2 :F'RINT#1 , "FA : 'W;FA 

660 IF FA>4 THEN 760 ELSE RETURN 

670 GOTO 670 

680 SYMBOL AFTER 97 

690 SYMBOL 97,0,126,66,90,90,66,126,0 

700 SYMBOL 98,195,231,126,247,239,126,231,195 

710 SYMBOL 99,219,219,0,219,219,0,219,219 

720 SYMBOL 100,102,153,189,255,102,60,102,195 

730 SYMBOL 101,18,64,9,160,4,145,4,32 

740 SYMBOL 102,0,126,126,126,126,126,126,0 

750 RETURN 

760 REM *** GAME OVER *** 

770 FOR A=1 Tü 20:FOR B=100 TO 200 STEP A: SOUND 1 ,B,1 ,15,0 ,0,31:N 
EXT B :NEXT A 

780 INK O,O:INK 1,26:1NK 2,15,0:PAPER O : BORDER O:PEN 1 : MODE O 
790 PEN 2:LOCATE 6,7 :PRINT"GAME OVER" 

800 PEN 1 : LOCATE 4,12 :PR INT "PUNTOS : " ¡¡US1NG "######" -p 
810 PEN 3: INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

820 FOR A=1 TO 50:Aí=INKEYí:NEXT A 
830 PEN 1 

840 IF INKEY(60)=0 THEN RUN 250 
850 IF INKEY(46)=0 THEN CALL O 
860 GOTO 840 
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10 REM *** LA MANZANA ENVENENADA *** 
20 REM *** ANGEL GARCIA DELGADO **** 
30 REM ********** G.T.S. *********** 
40 REM 

50 SYMBOL AFTER 160 

60 SYMBOL 160,60,6,59,113,1,29,63,103 
70 SYMBOL 161,0,0,0,0,0,120,252,254 
80 SYMBOL 162,111,95,95,127,127,63,30 


90 SYMBOL 163,254,254,254,254,254,252,120,0 
100 MODE O:INK 0,24:1NK 1 ,0 :1NK 2,6:1NK 3,18 
110 BORDER 24:PAPER 0:CLS 
120 ORIGIN 320,200 


140 FOR A=0 1 
150 F'LOT 0,0, 

0 2*P I 
,3:DRAWR 

STEF‘ F'I/50 

1 nos(A)*300.SIN(A)*18C 

j...L 1.L 

> 

160 NEXT A 


■ -- 7 -- 

1 . . . f . f “ 

|.i.í.1..|.. 











i~4.1 



-.4. 







180 F'EN 1 







190 LOCATE 8,13 : F'RINT "MANZANA" 




Q 

200 FOR A= 1 TO 11000 

STEP 4 :SOUND 1 

,A , 1,15,0,0,31:NEXT A 



210 INK 3,18,24 



j I ; ! i j ; ] 





3,1000-A,1 ,15:NEXT A 


230 a$=CHR$(160)+CHRÍ(161)+CHRÍ <10)+CHR$ <B> +CHR$ <8)+CHR*(162)+CHR 


* (163) 
240 INK 
250 MODE 


¿5 , i CJ 
1 







!.LJ.1. ! 

rn 

1 


j ] 

i .i. í .i. j 




i i- i 

f i 1 

T "<■ 

< LA MANZANA ENVENENADA >> « 

A.G 

. D. 



-4 . 


280 F'RINT :F'RINT :F'RINT"VE COMIENDOTE LAS MANZANAS DEL CESTO..." 


290 F'RINT: F'RINT "PERO SOLO LAS MADURAS, YA QUE SI MUERDES" 
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300 

F'RINT"(JNA QUE 

ESTE VERDE 

PERDERAS! 

1 1 

ii 
















310 

PRINT: PRINT:PR1NT‘ 

PARÍ 

} ELEGIR L 

.AS 

MANZANAS 

INTRODUCE 

II 










320 

F'R I NT : PRI NT " PRI MERAMENTE 

LA F 

ILA 

9 

Y 

LUEGO 

L 

A 

COLUMNA 

11 








330 

FÜR A=1 

TO 39 

STEP ¿ 

sF 

:, EN 

2 :LQCATE 

A, 

2C 

) :PRIN 

T 

Aí 

; 

:F‘EN 

3 

:PRINT 





A$:NEXf A 

























i Nr -. 4 , e> 

,18:1NK 

3,18 

6 























360 

370 

ir iiMr\L i — i ntiiM 

T Mlí‘‘ r> L. . T KIL.- O k O 

vJ-JU 























MÜDE 1: 

0 A ,Mr *‘ J 9 

p-o-DIM 

1 CJ 

M ( p «= 

0 






















380 

F'EN 1 
























390 

FÜR A=1 

TO 10: 

M(1+INT(RND*8) 

1 +1 NT 

(RND*5))= 

*) 














400 

NEXT A 




























420 

MODE 1 

























430 

ORIGIN 

0,200 






















440 

F'LOT 0, 

150,1sDRAWR ' 

?Q( 


I) 






















450 

F’LÜT 0, 

-150 sDRAWR 

700 

,0 






















460 

WINDÜW 
F'EN# 1 ,3 

#1,12,3 

s-, O 

9 “ 

l c 

i 



















4 / i.) 

12,7:PRI NT 1 

O A ÜM 

A 

B 


D 















HüU 

A.Qñ 

LULA 1 t 

2 

FÜR X=1 

L 

E F 

u ri 


















500 

T'ü 10 

STEP " 



















510 

PEN 1 si 

OCATE 3 

") . X+9 

PF 

í T NT 

M T IT i: ÍFii. 

X . 

3 1 












520 

FÜR Y=1 

TO 16 

STEP 2 






• 9 

f 














530 

PEN 1:LOCATE#! 

,Y ,X 






















540 

PRINT#! 

,AÍ 
























550 

NEXT Y: 

NEXT X 


















560 

WINDÜW 

#2,10,4 

0,24 

,24 


















5 /O 

PEN#2,3 


























580 

590 

P-0 

GOSUB 7 



























40 




















610 
6^0 

bULJND 1 
INPUT # 
IF F < 1 
INF'UT # 
CteUPPE 

, 2 o (_) , 20 

, i -j 

_.A 

TFÍEIN 

MNA 

1- 

C 




F 

i ,4<: 

















J.V tj 1 .1 

OR F >5 

2,"COLO 
R £ (F.&) 

» í 

2ni imtt 

)0 

c T u 

nn ir 

T / 1 
















630 

íA-i-n 

i - 




J * 

J 1 
















635 
























640 

BT--"ABODÉRGH" 























650 

C-0:FÜR 

A=1 TO 

LEN (Bí 























66o 

IF Cí-’MIDí <B*, 

A , 1) 

THEN 

C 

-■■A 



















670 

NEXT A; 

IF C=Ó 

THE!' 

SOUND 

1 ,,400 

,50: 

GOT( 

) 630 













680 

B-M(C , F 

) 



















690 

IF B-2 

THEN PE 

N# 1 


GOSUB 

730 : SOUND 

1 

,400 

,3 

0 ¡; 

GOTO 

750 








700 

IF B-0 

1 HEN li ( 

J , 1- > 

= : 

: 


P+ 

5 a PEN#1 

•f 

sC 

Oí 

¡U¡ 

i 

73 

0 2 

FC 

)R 

A 

~ 3. 

T 

0 

1¡ 

>00 




8 1 El 

■ iu :puuimu i,h, 

1. , 1 

i sí 

4EX. 1 

A 





















/1 U 

7 r>C) 

j. r jD—i 

GOTO 59 

LOCATE 

LOCATE 

! litli'J ÍDUUI'MLI 

1 

4 00 

9 •*- 

uu : bu l u 


11. 

















730 

740 

#1 ,C*2-1 , F J| 
14.9 ;PR ÍKIT 

<•->. 

-1 

: T.)t 

idBTMT... +1-1 

i A 
YE 


DCTI llZ-f 

| 















"F 

MTIP 

! " -P 

': 1 

ri ípj\ 




















750 

FÜR A--4 

00 TO 0 


1 : 

roí iwn 

1 

,A 

„ 1 

al\ 

, 

A 

















760 

FÜR C= J 

TO 8: POR F=: 


ro 

5 






















770 

N—M ( C , P 

) : IF N= 

0 ÜP 

N— 

i 

THEN F 

■’EN# 1 , 

7 



















780 

IF N=2 

THEN PEN#1 

3 



























790 

GOSUB 1 

30 



























800 

SOUND 1 

,lüO ,5 
























810 
820 

FÜR N—1 

TO 50: 

NfciX 

N 


























NEXT F s 
PRINT # 

NEXT C 
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P4A” 

, * * * 
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LABERBALL 


1 











10 REM * ANGEL GARCIA DELGADO * 

20 MODE O 

30 INK O ,0:1NK 1,26:INK 2,7:1NK 3,18 

40 PAPER O: BORDER O 

50 ORIGIN 318,210 

60 POR a=0 TO 2*PI STEP F'I/70 

70 PLOT 0,0,2 

80 DRAM 300*COS<a) ,150*SIN(a) 

90 DRAWR O,30*81N(a) ,3 
100 NEXT a 

110 PRINT CHR#(22)+CHRÍ(1) ; 

120 A$=="LABER-BALL":A=11-(Ó.5*(LEN(A*))) 

130 LOCATE A,12 :PRINT Aí; 

140 PRINT CHR$<22)+CHRT (O) ; 

150 INK 2,7,0:INK 3,0,18 

160 POR a=l TO 300:S0ÜIMD 1 ,a , .1,15 :NEXT a 
170 INK 2,18,7:INK 3,7,18 

180 POR a-- 30 O TO 1 STEP -2:S0UND l,a,l:SQUND 2,a*2,l:NEXT a 

190-INK 2,7:INK 3,18 

200 POR a-1 TO 500;NEXT a 

210 POR a-O TO 50:PRINT CHR$<7>:FOR b=l TO 50:NEXT b ¡NEXT a 
220 MODE .1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a$)/2):FOR a=l TO LEN<a$> 

250 b$=MID$<ai,a,l):PRINT bí;:IF b$í>" " THEN PRINT CHRT(7); 
260 NEXT a 

270 PRINT :PRINT¡POR a-1 TO 200:NEXT a :RETURN 
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280 

290 

300 


0, A 


310 

LJB 2 


320 


330 

340 


350 

iJOU 

/- J "7 

M (V 
QQm 


390 


400 


410 


420 

430 

"b" ; 


440 


450 


460 


470 

480 

490 

500 

510 

520 

530 

:F'=P 

540 

550 

560 

570 

580 

crvA 


A í'i 


610 

620 

630 


640 


650 


660 


670 


680 


690 


700 

"7 i 


( 10 
lOA 


( 

7 Qf) 


740 


-750 


760. 


770 


780 


790 

800 

8 Í 0 







REM *** INICIO DEL PROGRAMA 
a*="«. LABER-BALL >>" sGOSUB 
Aí="RECOGE LAS BOLAS I 


**# 

240 SPRINT 
te"sGOSUB 


240:A*="POR 


PRINT:AT 


DE QUE"sGOSUB 240:A$="El_ TIEMPO SE AGOTE 

ARRIBA 


; AT-"Q 


CONTROLES : 
IZQUIERDA 


sGOSUB 240 :AT="Q 


seo 

A. 


EL LASERINT 
5UB 240 
ABAJO" sGQS 


PRINT saí--"PULSA 
IF INKE'Y (60) <>0 


—S 

THEN 


P. 

PARA 

330 


DERECHA"sGOSUB 240 
EMPEZAR"sGOSUB 


GOSUB 
O 


830 


40 








OsPEN IsMODE O 


INK O,O s BORDER OsPAPER 
INK 1 ,26 sINK 2,15 
INK 4,24 

WINDOW #1 ,1,20,1,3:WIND0W 1,20,4,25 

F'EN 2 sGOSUB 620 

P=0 :T-250sGOSUB 590 

F'EN 3: INK 3,10,20:F0R A=1 TO 10 

X=1+INT(RND*2Q) sY-l+INT<RND#20) 


LOCATE 
ELSE i 
NEXT 
X=2 s Y=2 
IF NOT 
IF NOT 
IF NOT 
IF NOT 
LOCATE 


Y,X sCALL 
20 


30000 s IF F'EEK.(29999) -32 THEN LOCATE Y , X s PR I NT 


s XB=X s YB=Y 
l'NKEY (67) THEN 


INKEY(69) 
INKEY(34) 
INKEY(27) 
Y,X sCALL 


THEN 

THEN 

THEN 

30000 


X=X -1 
X-X + l 
Y=Y-l 
Y = Y+1 


C=PEEK(29999) 


IF 

IF 


C=97 

C=98 


THEN SOUND 
THEN 

+TsGOSUB 590 
F'EN 4 sLOCATE YB , XB sF'RINT" 
XB=X:YB=Y 

1sGOSUB 


1 ,300,2 : X = X B: Y = Y B 
BO-BO+1sFOR A=100 TO 200 STEP SsSOUND 2,A,lsNEXT 
IF B0>9 THEN 920 

;sLOCATE Y ,X SPRINT"c" ; 


T=T- 
GOTO 
GOTO 
LOCATE 


600 


460 

580 


#1 ,2,2 sPRlNT#l , "F'T 
LOCATE #1,17,2sPRINT#l,USING 
RETURN 
F'RINT 


;P .-LOCATE #1,11 ,2:F’RINT#1 ,"TIMEs" 
"###";T;sIF T<1 THEN 940 


aaaaaaaaaaaaaaaaaaaa 


F'RINT 1 


F'RINT' 


F'RINT 1 

F'RINT' 

F'RINT 1 


F'RINT" 
F'RINT" 
PRINT" 
F'R I NT " 
PRINT" 


a 


a 

a" 

aaaaaa aaaa 

a " 

a 


a aaaaa 

a" 

a aaaaaaaaaa a 

a 

- il 

A 

a a 

a 

a a 

a 

a" 

a a 

aaa a 

a a a < 

a a 

a" 

a a 

a a a 

a a a a« 

^ a 

a " 

a a 

a a 

a 

a 

a" 

a a 

aaaaa 

aaaaaaaa 

a 

a a 




a 

a a • 

aaaaa 

aaa aaaa 

a" 

a a 




a " 







a a 

a 

a" 





a" 

a a 

a a a a 

aaa 

a a 

a" 

a a 

a 

a a 

aa a" 

a a a 

i a a a. a a 

a a a a a < 

aaa 

a" 

a 

a" 



a a aaaaa a a cj a a a a a < 

AAA- 

a a 
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820 RETURN 

830 DATA 205,96,187,50,47,117,201 
840 RESTORE 830 

850 POR a-3000O TO 30006:READ b:POKE a,b:NEXT a 
860 SYMBOL AFTER 97 

870 SY MBOL 97,255,129,189,189,189,139,129,255 
880 S Y MBOL 98,0,60,102,94,94,126,60,0 
890 SYMBOL 99,0 ,60,90,126,66,36,90,0 
900 S Y MBOL 100,0,72,18,0,84,0,18,0 
910 RE-TURM 

920 ENT 1,5,-1,1,5,0,1:POR A-300 TO 1 STEP -5:SOUNO 1 ,A , 10,15,0,1 
: NEXT 

930 F-P+500sGOTO 940 
940 REM *** GAME OVER *** 

950 POR A= 1 TO 20:POR B=100 TO 200 STEP AsSOUND 1 ,B , 1 ,15,0 ,0,31 :IM 
EXT BsIMEXT A 

960 INK O ,0:1 NK 1,26:1 NK 2,15,0 : PAPER O : BORDER O : F'EN 1 : MODE O 
970 F'EN 2:LOCATE 6,7:PR1 NT"GAME OVER" 

980 F'EN 1 : LOCATE 4,12: PRI NT "PUNTOS : " ; US ING "###### " ;P 
990 F'EN 3 :1 NK 3,15 : LOCA TE 5,17 : PR I NT " O TRA? <S/N) " 

1000 POR A=1 TO 50 : A$-1NKE Y $ : NE X T A 
1010 F'EN J 

1020 IF I NKE Y (60) =0 TRIEN RUM 220 
1030 IF I NKE Y (46) =0 TRIEN CALI. O 
1040 GOTO 1020 
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INVASION 




























































10 REM ********** 

T KJOAFiT Dl\l i*********** 










20 REM **** 

ANGEL 

GARCIA 

DELGADt 

J * * * * 










30 REM *********** 

G . T . S . 

************* 










40 REM 

50 SYMBOL l 













TER 160 










<bU i 

70 
80 £ 
90 
] 00 

dTNBUL 

3YMB0L 

3YMB0L 

SYMBOL 

SYMBOL 

60,252,132,246 
L61,0,0,0,127,1 
62,66,36,126,1 

AT Ocrcr OA 1 Otr.O 

Otr 1 O «=; c.“ O^/i ncn otro 

J J- , -4- , X. *+ , jL.--.IjL. , oL-_Ij6 







JL f , ( - J , U , 

53,153, 

i.) 

126,60,: 
5,253,2^ 

1 AA 

231 

*1,255 

AA 








WW , --WW , 

164,73, 

146,73, 
:INR 1 , 
Os PEN 

, ^‘+-1 , ^ 
146,73, 
26:INR 








110 

MODE 0 

INK 0 , C 

* ' w ? ' w 1 J ^ 

T Mk‘ P _ P 









120 

PAPER C 

JsBORDÉR 

1 


w , w 









130 

CLS 













140 

ORIGIN 

0,0:F0R 

A=0 TO 

600 STEP 5 sPLOT A,RND*400 , 

1+INT(RND*15) 




sNEXT A 













150 

LOCATE 

7,12:PRINT "INVASION" 











1 6 O 

POR A—! 
INR- 1 ,1 

TO 1000 STEP 

10sSOUN 

D 1 , A , 1 

,15:NEXT 

A 







i 

:6 ,ü 

Í00 TO 0 
, A , 1 , 15 
INR 1 ,2 
15 TO 0 

INR 0 , 0 












J. O 

190 

200 

210 

r Un fn — v. 

SOUND 
nfxt a 

STEP - 
:SOUND 

A 

1 

2 , A+1'0 , 

1 , 15:SOUND 3,RND*200 

,1 

,15 






POR A= 
MODE 1 

STFP ~ | 

:SOUND 
26:1NR 

1,200 , 100 , A ,0,C 

7 ■ TKIfc- r¡ o 

,31:NEX 







220 

: INR 1 , 

! H 




240 

POR A=C 

) TO 60C 

STEP 5 

sPLOT A 

u. , n 1 1 « 

,RND#40( 

) , 1:NEX I 

A 





250 

PEN 1 










2ó0 

LOCATE 

13,2 SPRINT "<< 

INVASION >>" 






270 

PEN 3 












280 

LOCATE 

.1,5 SPRINT "DESTRUYE A 

LOS INVASORES 

ANTES 

E 

E QUE S 

E" 



290 

LOCATE 

1,7:PRINT "APODEREN DI 

E TU BARRERA DE 

ENER 

31 

A IONIO 

A" 



300 

PEN 2 
LOCATE 
PEN 1 

15,10: F 











J1 u 
q r :>rv 

RINI "C 

ONTROLE 

3 : " 
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.1 ' 
i • r ' i. 








.i ■' 


.f 

T’ 




T. 















1 1 1 

IT. 





— 

330 LOCATE 13 

, 13 ¡PRINT" TAB 
, 15 ¡F'RIN 1" CAPE 
,17 ¡PRINT "EMTEF 

, PPM 3 » PP T l\lT 

.í 











ARRIBA 

" 











w v % * l_ LJ Lrf H? 1 fc. i. O 

350 1 rir'ATF 1 3 

o 

e-i 

" 

r-| i. í H • J LJ 

DISF'A 

-'ULSA 

o ch ' i 

















360 1 flf'ÜTP r ~, _ 

— Q.— PAOA 

COMI 

r M7 A 

R A 

•n ir:: a o 

II 








370 IF INKEY(60)< >0 

ÍHEN 37Y 

> 
















380 MODE J 





















390 F'EN 1 






















400 DIM M <10) 





















410 ORIGIN 0, 

240 




















420 C=25 





















430 POR A—0 10 640 STEP SsPLOT A,RND*150 

,1 

¡NEXT 

A 












44U r Uh H=0 1 

A 

ásñ uno a -i 3 

ü 640 ¡ L : 

=i;+v*rnl 

I-9KRND ¡P'L.0 1 

4 s 

0, 

2 ¡DRAWR 

O,ABS(C) 

¡NEXT 










¡F'EN 1 

JD 'i“ i 1 

















A 

Cl 


k 1 64 > 











46 n PPM 3 1 .1 nrATir 30 a.pptmt 

¿ r ru in 

2) 

1 































480 LOCATE 2, 

.1J ¡ F'R IN 

r CHRi" ( 


















490 LOCATE 2* 

22 ¡F'RIN 

T CPIRÍ (163) 


















500 WINDOW #1 

,1 ,40,2- 

4 ,24 

















510 GOSUB 650 





















520 X-l7 




















530 Bf=""¡FOR 

A= 1 TO 

16 ¡BÍ=I 

^CHE'* (161) ¡ 

NEXT A 











540 LOCATE 3, 

X¡PRINT 

II II 















550 1P INKhY(68)=0 THEN X = X- 

-1 

¡IF X-i 

12 THEN 

X 

= 12 












■-'óU Ir J.NKt T ( /U;=U IHLN X^X + l 

¡ IF X ) 

21 THEN 

X 

=21 












ri-N i :lulhil j,a :rKiNi LhKí-UüU; ¡ 

c;üñ r LT TML.-LTV / 1 O \ —"i*L_lr~Ki nnni ir-, / / vv 













A» X 1 NI1— 1 VIO/ —w | nCLIM DUOUD 

PCM ?.W-UTMT/DKiri*1f'n 

oou 
















600 PPM 3 

















610 M (N) =M(N) 

-2 ¡LOCATE M(N) 

M+ 1 1 -PRTWT r.HRÍ ( 1 63 

- 

II 

11 








620 IF M(N)<2 

THEN GO FO 710 
















630 GOTO 540 


















640 END 


















650 F'R I NT# 1 , " 

PUNTOS¡ 

" ;P ¡RETURN 
















660 F'EN 2 ¡PRINT B* 

















670 FOR A=1 TO 100 STEP ÍOsSOUND 1 ,A, 1 ,15 :NEXT A 

680 IF M < X-11) <20 THEN M (X-U ) =39 sSOUND 2.200.10 ,15,0.0.30 ;F'=P+5 ¡ 


GOSUB 650 
690 LOCATE 4,X:F'EN O SPRINT B* 


700 RETURN 


710 FOR a=l TO lOOsSOUND 2,a,1,15,0,0,30:NEXT a 
720 MODE O 


730 F'EN 2 :1NK 2,17,0 : LOCATE 6,7 :PR1NT"6AME OVER" 
740 F'EN 1 ¡LOCATE 5,13 ¡ F'R I NT "PUNTOS :" ;P 


750 FOR A=1 TO 1000¡A*=INKEYí¡NEXT A 
760 RUN 210 
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psa Essg rers rssg tzm es 

FxYfrfl Px':':':'-3 P:':'-:V,Fj Fx : :-x ; J E 


^ e?53 ^3 E%33 rmi es? 3 pssg e?&3 Essa tzm i 
^EES Eg%3 Effgg E%%3 F5?3 E??3 E??3 F5?3 E??3 EF? 


GLOBO 



















































Id F 

<EM 

* ANGEL GARCIA I'lFI GAnn * 












20 MÜDE 

O 














30 INK 0,0s 

INK 1 ,2 

6 : l'NK 2 

,7; INK 3,18 









40 PAPER 0 : 

BORDER 











DU UN1b IN 313,310 












OU 1 - 

7n P 

ui-\ a—u 

■ l oí r 

1 U .c'. # 1”' J. 

3IEF PI/70 










so i: 

90 L 

IRAW 

iRAWl 

NEX' 

• rií ¿ 

QrwH'rnc t \ 

, 1-50 *SV 

a) 'I 










4 0 , 
r a 

no* n tm t 

M ( 3 ) 












1 o o 













110 

F'R I NT CHRi (22) +CHRS ( 1 

; 

I....EN (Ai) 









1 20 

AÍ= 

'GLOBO" ¡ A= J. 

l -'(0.5* 

>) 












130 

LOCATE 

A,12 SPRINT A$; 














140 

F'R I NT CI-IRi (22) +CFIRÍ (0 

5 












150 

INK 

2,7,0:INK 

3,0,18 













160 

FOR 

a -1 10 300 

s SO UN Ei 

,a,l ,ü: 

sNEXT 

a 











1 70 

INK 
FOR 
I Nl< 

PDP 

2,18,7sINK 
a-300 TO 1 
2,7;INK 3 , 

• V — i t i: í r«L/.:v./"v 

3,7,18 














1 ÜÜ 

1 QA 

S 1 EP . 

2 : SOUND 

1 , a , 1 

SOUND 

7 

*“■ 1 

a# 

2,1 

sNEXT a 







J. 8 















210 
220 

FOR 

MnriF 

<=*. J. 1 U •_*ww ;|\)C.A | 

a-0 TO 50 SPRINT Cl 

■ i 

HRÍ(7) :F 

’OR b~ 

1 

TO 50 

sNEXT b ¿NEXT a 







230 

GOTO 280 

















240 

F'RINT TAB (.2.0-LE N (ai) / 

2) :FOR ¿ 

i= 1 TO 

1 P!\l (ai 











250 

bí=MID$(a* ,3 ■ 1 

SPRINT 

bi ; sIF 

bi<>" 

1 1 

TUFEN 

PR T NT. f'URí: ¡ ~7 ) » 







260 

NEXT a 















270 

F'R I NT ¡PRINT :F0 

9 a-1 Tt 

j 200;NEXT a: 

RETURN 










280 

REM 

* % % IN IC1 0 

DEL PROGRAMA * 

** 











290 

aí-- 

'<*< GLOBO > 

>":GOSUB 240 SPRINT 










30 0 

Ai-"RECOGE CON 

l'U GLOBO A LOS HOMBRES" sGOSU 

B 

240 

As 

F-~ " PERO 

SIN 






ri INLNHKLU LUN sbübütí 240 

; Ai-"LOE 

ALFILERES 0 

L 

AE3 

TI JERAS„";GOSUB 





h 1 / v 













320 

F REI A 

Ai—F q .. 

" : GOSI IR 

-P- CvuIM i ruLLD a S oUoUrj 4H V 

ARRIBA n ¡¡GOSUB 240 :A$~="A „ ABAJO" :00SU 

1 40 • A 4: ss"F' riP K'Pr UA" .cnoi i a t/ia 

B 

240 

A: 

?="0 . IZQU.T 






330 

F'R I NT : ai-" PUL SF 

. « WL-uuuiTp »UU •_»U X- T'.' 

— R — 1-"' AIvA ír mPP 7 A» " .. nnci id n 

n r\ 









340 

1F 1NKEY (60) <X 

:> them : 

340 



- - 









350 

GOSUB 660 

































.,L.i. 


















1 ! 

_ 


! 1 ] 














1 ; 

T 

I 
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i i 

.|_ 4 .. 

i. 



















4-1+ 














... 


í j 



i ! ; 

UN- 









i 

i - i i.'- 


, i 

I i v • 

i | j 

-i. i t 





























































360 INK 0,23:PAPER QsBORDER 23:PEN 1:INK 
370 MODE O:INK 


10:INK 4,26:INK 


390 WINDÜW 1,20,4,25 
400 F=0:FA-0¡GOSUB 630 

410 PEN 2;FOR A=1 TO 20:X-1+1NT(RND*18) 

420 LOCATE Y,X:IF RND >0.5 THEN PRINT"g"; EL.SE F'R I NT" h " ; 
430 SOUND 1,A,2 
440 NEXT 

450 PEN 3 :FOR A=1 TO 15;X=1+INT(RND*18):Y=1+INT<RND*19) 
460 SOUND 2,50—A ,2 
470 LOCATE Y ,X:PRINT"e" ; :NEXT 
480 X=10¡Y=9:XB=X:YB=Y 
490 IF NOT INKEY(67) 

500 IF NOT INKEY(691 
510 l'F NOT INKEY (34) THEN Y=Y-1 
520 IF NOT INKEY(27) 


IK i 

. ,0 











■í 












: Y = 






-l + IIMI \ KNU* 1 V ) 





THEN X=X-1 
THEN X = X +1 


X- 

x: 


1 THEN X=1 
18 THEN X=18 


THEN Y=Y+1 


IF 
IF 

l'F Y< 1 THEN Y = 1 
IF Y>18 THEN Y-18 


590 


530 LOCATE Y,X:60SUB 590 ¡LOCATE Y + 1,X:S0SUB 590 
540 LOCATE Y,X + 1:60SUB 590:L0CATE Y + l , X + l :GOSL)B 
550 PEN 1 :LOCATE YB ,XB :PR1NT" ":LOCATE YB , XB+1:PR1NT" " 
560 PEN 1 :LOCATE Y , X :PRINT"ab " :LOCATE Y , X +1 :PRINT"c:d " 

570 XB-X:YB-Y 
580 GOTO 490 

590 CALL 30000:C=PEEK(29999) 

600 IF C=101 THEN FOR A=100 TO 200 STEP 4:SOUND 1,A,1:NEXT 
:GOSUB 630 

610 IF C=103 OR C=104 THEN SOUND 2,50,15,15,0,O,31:FA-FA+1 
630 

620 RETURN 

.630 LOCATE #1 ,2,2 :F'RINT#1 , "F'TOS : " ;F':LOCATE # 1,14,2;PRINT#l 
FA 

640 IF FA>4 THEN 790 
650 RETURN 

660 DATA 205,96,187,50,47,117,201 
6 7 O RES I ORE 660 

680 FOR a-300oO TO 30006¡READ bsPOKE a,b:NEXT a 
690 SYMBOL AFT'ER 97 

700 SYMBOL 97,7,25,50,102,78,142,156,156 

710 SYMBOL 98 ,224,152,76,102,114,113,57,57 

720 SYMBOL 99,221,101,63,19,8,15,7,7 

730 S'YMBOL 100,187,166,252,200,16,240 ,224,224 

740 S Y MBOL 101,56,56,16,254,16,40,68,130 

750 SYMBOL 102,18,0,68,16,129,40,2,72 

760 SYMBOL 103,6,6,8,16,32,64,0,0 

770 SYMBOL 104,231,165,231,104,16,40,68,130 

780 RETURN 

790 REM %%% GAME OVER *** 


P=P+15 
GOSUB 

"FA:": 



800 FOR A= 1 "1 

ro 20: FOR B=100 

TO 200 

STEP A 

:SOUND 1 

,B,1,15 

, 0,0,31 

¡N 


EXT BsNEXT A 









810 INK 0 ,0 : ] 

[NK 1,26:INK 2, 

15,0:PAPER 0:BORDER 0: 

¡PEN lsMODE 0 



820 PEN 2:LOCATE 6,7:PRINT" 

GAME OVER" 






830 PEN 1 ¡LOCATE 4,12 :PRINT 11 PUNTOS : " ¡¡USIMG 
840 PEN 3:INK 3,15:LOCATE 5,17:PRINT’"OTRA' 
850 FOR A-1 TO 50 :A$=INKEY$:NEXT A 
860 PEN 1 

870 IF INKEY(60)=0 THEN RUN 220 
880 IF INKEY(46)=0 THEN CALL O 
890 GOTO 870 


"######";P 
‘ (S/N)" 
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FRONTERA 


10 1 
20 

REM * ANGEL GARCIA DELGADO * 
MÜDE 0 




30 

40 1 
50 i 
60 i 
70 1 

l IMK 

3 A PER *0 ; 
□RIGIN : 
-OR a=0 
F'LOT 0,< 

: NK 1 ,1 
¡BOEDER 
318,210 
TO 2*P] 

') 7 

66: INK I 
0 

: stef-'f 

!, 7: INK 

■1/70 

3,18 




80 ] 
90 i 
100 
110 

DRAW 30C 
DRAWR 0 
NEXT a 
F'RINT £ 

- » 

:>*COS(a) 
, 30*81Ni 

IHR'i (22) 

,150*SI 
ía) ,3 

+CHRÍ (1 

N (a) 

) ; 





120 

Aí="FRONTERA": 

: A=11-(0 

1.5* (LEN 

(Ai))) 




130 
140 

LOCATE 
F'RINT C 

A , 12 : F'RINT Ai; 
IHEi (22) +CHRÍ (0 

») ; 





150 

INK 2,7,0:INK 

3,0,18 






160 
170 
180 
190 

Oññ 

FOR a=l TO 30C 
INK 2,18,7:INI 
FOR a—300 TO 1 
INK 2,7:INK 3, 

crncr. ^ t n ca/ 

>:SOUND 
í 3,7,1£ 
i STEP - 
,18 

1 , a , 1 ,1 

1 

•2: SOUND 

5: NEXT 

i 1 , a , 1 : 

a 

SOUND 2 

,a*2,l: 1 

MEXT a 

W 

210 

220 

rur\ c£~ J 

FOR a=( 
MODE 1 
GOTO 7f 

L i U j ni. 

) TO 50: 

>:NEXT a 
¡F'RINT C 

i 

)HRÍ<7) : 

FOR b-1 

TO 50:1 

NEXT b si 

MEXT a 

230 

io 







240 

F'RINT TAB (20-L 

.EN (ai) / 

2):FOR 

a=l TO 
bi<>" 

L FN(ai 1 



250 

260 

bÍ=MIDÍ(aÍ,a, 1 
NEXT a 

.) :F'RINT 

' bij sIF 

l— l— 1 M \ Cl -r t 

" THEN 1 

-'ElNT CHRÍÍ7) 

270 

F'RINT :F 

5 RINT:FOR a=l T 

0 200:NEXT a:RETURN 



280 

REM * *ü 

( INICIC 

) DEL PROGRAMA 

*** 




290 

ai="<< 

FRONTERA »":GOSUB 240:PR1NT 
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300 A#=" IMPIDE QUE LOS FANTASMAS LLEGEN" :60SUB 240;AÍ="A LA FRONT¬ 
ERA QUE TU" :G0SUB 240 :Af-=" ESTAS DEFENDIENDO . " :GOSUB 240 
310 PRINT:A$="CONTROLESs"¡GOSUB 240:A*="CURSOR ARRIBA":GOSUB 240: 
AÍ—"CURSOR ABAJO"sGOSUB 240:A$="SPACE. DISPARA":GOSUB 240 
320 PRINT :aí="PULSA -S- PARA EMPEZAR"sGOSUB 240 
330 IF INKEY(60)< >0 THEN 330 
340 GOSUB 590 

350 PAPER OtBORDER 3¡INK 0,3:MODE 1 
360 INK 1,26:1NK 2,20:INK 3,15 

370 PEN 3 :FOR A=1 Tü 25:PRINT STRINGÍ <40 , "g") ; : NEXT 
380 WINDÜW #1,2,39,2,4 :WINDOW 2,39,6,24:CLS #1 :CLS 
390 DIM M(19):FOR A=1 TO 19 

400 N=INT(RND*2):IF N=0 THEN M(A)=1+INT<RND#4) ELSE M(A)=40-1NT(R 
ND*4) 

410 NEXT 

420 X=9:XB=X:P=0:GOSUB 580 

430 IF NOT INKEY(Ó) THEN X=X-1:IF X<1 THEN X = 1 

440 IF NOT INKEY(2) THEN X=X+1:IF X>19 THEN X = 19 

450 PEN 2sL0CATE 19 ,XB ¡PRINT" ";:LOCATE 19 ,X ¡PRINT"ab"; 

460 XB=X 

470 IF NOT INKEY(47) THEN GOSUB 530 
480 N=1+INT(RND*18) 

490 LOCATE M(N) ,N:PRINT" ";:1F M(N)>19 THEN M(N>-M(N)-1 : IF M(N)=2 
O THEN 680 

500 1F M(N)<20 THEN M(N)=M(N)+1:IF M(N)=19 THEN 680 
510 PEN 1:LOCATE M(N) ,N¡PRINT"d"; 

520 GOTO 430 

530 PEN 1:LOCATE 1 , X :PRINT”cccccccccccccccccc";¡LOCATE 21, X ¡PRINT 
"cccccccccccccccccc";¡ENT 1 ,100,10,1:ENT 2,1,0,2,100,10,1¡SOUND 1 
29,50,40,15,0,1:SOUND 130,50,40,15,0,2 
540 IF M(X)>19 THEN M(X)=40 ELSE M(X)=1 
550 F-P+5:GOSUB 580 

560 LOCATE 1,X ¡PRINT" " ; ¡LOCATE 21 ,X¡PRINT" 

i< . 

570 RETURN 

580 LOCATE #1 ,11 ,2 ¡PRINTttl , "PUNTOS.";P¡RETURN 

590 SYMBOL AFTER 97 

600 SYMBOL 97,15,255,255,31,31,255,255,15 

610 S YMBOL 98,240,255,255,248,248,255,255,240 

620 S Y MBOL 99,0,126,126,0,0,126 T 126,0 

630 SYMBOL 100,62,73,109,127,65,99,127,85 

640 S Y MBOL 101 ,5,6,5,6,5,6,5,6 

650 SYMBOL 102,32,32,32,32,32,32,32,32 

660 SYMBOL 103,255,161,193,161,193,169,213,255 


670 RETURN 

680 REM *** GAME OVER ##* 

690 FOR A=1 TO 20:FOR B=100 TO 200 STEP 

A¡SOUND 

1 ,B,1 ,: 

15,0,0,1 

31 : N 


EXT B ¡NEXT A 

700 INK 0,0:1NK 1 ,26:1NK 

2 

í, 15 

,0 ¡PAPER 0: 

BORDER ‘ 

0:PEN 1 

¡MODE 0 




710 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

720 PEN 1 ¡LOCATE 4,12 ;PRINT"PUNTQS : " ¡¡US1NG "######" ;P 
730 PEN 3:1NK 3,15 :LOCATE 5,17:PRINT "OTRA? <S/N>" 

740 FOR A=1 Tü 50 : A$= INKEY T- ;NEXT A 
750 PEN 1 

760 IF INKEY(60)=0 THEN RUN 220 
770 IF INKEY(46)=0 THEN CALL O 
780 GOTO 760 
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ES23 E223 ES3 ES3 ES3 EE3 E3S3 E£3 E23 E¡£ 


£332 E23 ES23 E233 ES3 ES53 E5S3 E223 ES3 ES3 E 

33 t&Qü F:TT: : J FFAwJ FffffFd F: : :'-; : : : :'-J F: : :':T 





EXPULSOR 

































































i8 f 

30 ] 
40 F 
50 r 

;EM_.* .ANGEL GARCIA DELGADO * 











NK 0,0: 
■AF'ER 0: 
1RIGIN 3 

INK 1 ,2 
BORDER 
18,210 

6: INK 2 
0 

,7: INK 

3,18 











60 FOR a—0 

TO 2*F'I 

STEF' P 

1/70 









70 F'LOT 0,C 

,2 












80 DRAW 300*COS(a) 

,150*SI 

N (a) 










90 I 

3RAWR 0, 

30*SIN(a),3 










100 

NEXT a 











110 

PRINT CHRÍ(22)+CHRÍ<1 

) j 











120 

A*="EXPULSOR" :A=11-(0 

.5* (L.EN 

(Ai))) 










130 

LOCATE A,12:PRINT A#; 












140 

150 

INK 2,7,0:INK 
FOR a-1 TO 30C 
INK 2,18,7:1Nh 
FOR a=300 TO 1 

+Lnn»iu 

> ; 










J , 0 , 1 o 
:SOUND 
: 3,7,18 
STEF' - 

1 ,a,l ,1 

5 sNEXT 










1 oü 

1 70 












180 

2 : SOUNE 

1 , a , 1 : 

SOI IND 

7 


*2,1:1 

MEXT 

a 




190 

INK 2.7:1NK 3 

18 












200 

FOR a= 

TO 50C 

) sNEXT a 













210 

FOR a=< 

) TO 50 

PRINT CHRf (7) : 

FOR b=l 

T 

0 

5>( 

;>: 

NEXT b : 

MEXT 

a 




220 

MODE 1 









230 

GOTO 2E 

30 













240 

PRINT ' 

AB(20-L 

.EN (aí) / 

2) :F0R 

a= 1 TO 

LEN(a$) 







250 

bÍ=MIDi(aí ,a,i 

) :PRINT 

bi;:IF 

bí<>" 

1! 

THEN 

PRINT C.HRÍ ( 7) ; 




260 

NEXT a 











270 

PRINT :F'R1 NT :FOR a=l lO 200:NEXT a :RE 1 UKN 







280 

REM **> 

K IN1LIC 

J DEL PRUGR'ANA 











290 

300 

ono 

af= \ \ LArULbUh ¡bUbUb ¿.4U ¡rhiN 1 

Ai="RECOGE LAS BOLAS QUE SON" :GOSUB 24C 

i AnnéiL.rnci id n/m u a.±-— m rnui i ac dai ctac nt 

)sAÍ 

ni 

="EXPULSADAS POR AM 
ir n Ticpnucc " • rosi IR o 


dUü 

A A 

i _ ri l_'O 

a U U U U L.' 

_ “T a 1 1 -4' 










310 PRINT :í 
: GOSUB 240 

^i="CONTROLES:' 
: AÍ="A . ABAJO F 

:G0SUB 
•ALA IZG 

240 : AÍ”"G 
) " :GOSUB 

). ARRIBA PALA IZQUIERDA" 
240:AÍ="P . ARRIBA PALA D 



ERECHA":GOSUB 240 

: AÍ="L. 

ABAJO F 

•ALA DEF 


: GOSUB 240 





320 

PRINT:aí= 11 PULSA -S- F 

: 'ARA EMPEZAR" sGOSUI 

3 240 
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.. i .. 


UJJX XX 



X4 





































































330 ir- INKEY (60) <>0 THEN 330 
340 GÜSUB 690 

350 INK 0,26:BÜRDER 26:PAPER 0:INK 1.OsPEN 1 
360 MÜDE O 

370 INK 2,8:1NK 3,18:1NK 4 ,6 

380 PEN 2 : F'ÜR A=1 Tü 25:PRINT STRING* (20 , "-f " ) ; :NEXT 
390 WINDGW #1 ,2,19 ,2 ,4 :WINDÜW 2,19,6,24 

400 CLS. # 1 :CL3 :LOCATE 9,1: F'RINT"ff " :LOCATE 9,19:PRINT" t f " 

410 PEN 3 sPOR A-2 TO 18 ¡LOCATE 9 , A :F'RINT "be " :NEXT 
420 P-0:FA=0:G08UB 660 
430 X 1 - 1 O : X2-10 

440 XB—2+1NT <RND#i 7) :YB=INT(RND*2) 

450 IF YB-0 THEN YB=U sD=l 
460 IF YB--1 THEN YB=8 :D=-1 
470 PEN 1:LOCATE 1,X1:PR1NT" " 

480 IF NOT INKEY(67) THEN X1=X1-1:IF XI<2 THEN Xl=2 

490 IF NOT INKEY(69) THEN X1=X1+1:1F XI>18 THEN Xl=18 

500 LOCATE 1 , X 1 : F'R I NT " d " 

510 LOCA iE 18,X2SPRINT" " 

520 IF NOT INKEY(27) THEN X2=X2-1sIF X2<2 THEN X2=2 

530 IF NOT INKEY(36) THEN X2-X2+1:IF X2>18 THEN X2=18 

540 LOCATE 18,X2:PRINT"e" 

550 LOCA 1 F YB,XBSPRINT" " 

560 YB-YB+(D/2) 

570 IF YB 2 THEN IF XB=X1 THEN GOTO 610 ELSE GOTO 630 
580 IF YB> 17 THEN IF XB-X2 THEN GOTO 610 EL.SE GOTO 630 
590 PEN 4 ¡LOCA TE YB ,XB:PRlNT"a" 

600 GOTO 470 

610 F'ÜR A-100 TO 200 STEP 4sS0üND 1 , A , 1 ,15 sNEXT :F-P+5 sGOSÜB 660 
620 GOTO 440 

630 SOUND 2 ,600,15,15,0,0,31 
640 FA-FA+1¡GÜSUB 660 ¡GOTO 440 
650 Go l O 650 

660 LOCATE #1,2,2:PRINT#1 ,"PTOS s";P;sLOCATE #1,13,2:PRINT#1 , "FA : " 
j¡FA¡¡ 

670 IF FA>4 THEN 780 

■68o IRE ILJRN 

690 SYMBOL AFTER 97 

700 SYMBOL 97,60,102,223,191,191,255,126,60 

71.0 S YMBOL 98,7,63,241,14,14,241,63,7 

720 8 Y MBOL 99,224,252,143,112,112,143,252,224 

730 SYMBOL 100,124,224,192,192,192,192,224,124 

740 SYMBOL 101,62,7,3,3,3,3,7,62 

750 SYMBOL 102,0,126,126,126,126,126,126,0 

760 SY MBOL 103,16,69,0,146,0,164,1,72 

770 RETURN 

780 REM *** GAME OVER *** 

790 POR A-l TO 20 sFOR B-100 TO 200 STEP AsSOUND 1,B,1,15,0,0,31:N 
EXT BsNEXT A 

800 1NK O,0:1NK 1,26:1NK 2,15,0;PAPER O:BORDER O:PEN 1:MODE O 
810 PEN 2 ¡LOCATE 6,7:PRINT"GAME.' OVER" 

820 PEN 1 :LOCATE 4,12:PRINT"PUNTOS;";USING "######" ;P 
830 PEN 3 sINK 3,15¡LOCATE 5,17:PRINT "OTRA? (S/N)" 

840 FOR A-l TO 50 ;AÍ=INKEY*:NEXT A 
350 PEN 1 

860 IF INKEY(60)=0 THEN RUN 220 



870 I 

F INKEY(46)=0 THEN CALL 0 


880 GOTO 860 
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SSS5 

a 

BIS 
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! 

BIS 

a 

IB 

! 
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DIBUJO 





































10 REM ******** DIBUJO ******** 
20 REM * ANGEL GARCIA DELGADO * 











30 REM ******* G.T 

C3 x* x x x x x x x x 

m U ■ 











40 

REM 












50 

60 

70 

SO 

90 

Ti— 1 SbUbUB 430 :b 

OSUB 620 










"Uh H ““U 

i u x d : i 

INr-, R , H S 

OsINK 1 
2 AND m 

Nt A 1 R 









Hrt.r\ U I tJUKLith 

t- <1 AND m=2>+( 
ip 'i r. r i\i o a ■ 

,26:MÜD 
- 1 ) + (4 

t m 

AND m= 

■0 

s1=1sINK 1,2 

6 : 

F'EN 1 






100 
110 

METE- : 2< 
X-320 ; 

- 1 “ 

) 1 ññ - RAPA =s9n I Fifi 













['•-210 : xb 

~x :ub = u 













i 20 

IF INKE 

•Y(0)-0 

OR INKEY(72)-0 

THEN 

Y 

= Y+2 










130 

IF 1NKEY(2)-0 

OR INKEY(73)=0 

THEN 

Y- 

= Y-2 









140 

IF INKEY(8)-0 

OR INKEY(74)=0 

THEN 

X = 

= X-rt 









150 

1F INKEY(1)-0 

OR INKEY(75)=0 

THEN 

X 

-X+n 









i 60 

CALI.. &I 

3C59,1 : 1 

AGsMOVE 

X , Y :PRINT CHR-f (160) ; 

MDVE 

X, 

Y SPRINT 

CHR 




$ (1 

60) ; s CALL &BC5S 

: TAGOFF 










1 70 

IF INK! 
IF INK! 

:LY ( 71 ) --C 
:: Y (47) =C 
£Y(68)=C 
20 

jt u . une 

> OR INK 

EY (76) = 

0 THEN 

PLOT X-r 

, Y-8 : 

xb 

=x-ns yb 

— y — 8 




3. au 

190 

1 HEN F- 
) I HEN G 

LOI b , 
OSUB 21 

y b s IJK’Aw 

X-n , Y-E 

u / í L) /■' 

-il 

S y b — y 8 







Ir .LNKt 

0 ü ro 3: 

( 'Al 1 m 

IJ 











r :> i m 

— i rn 

O/") « zi tlL- 1 

NKEY* 

«mcyt ni.i TKinniii 

ü ( 

, 1 , 20 , 2 






220 

CL.S s INI 
r$-UPP 

_ •_ ni wi Cl X I w 

:> i ir "nriMANnn ■" ? 

c$ 


L_. A 1 C\ » VT 



- 'i 




230 

~R$(c$) 












240 

B-Í--M1D 

í (C$,1 ,1 

I) : A$==M1D$ (C$ „ 3 

,LEN(C$ 

) -2) 








250 

PRINT” 

JK . "sBí 

" " "Ai" 

f H 











260 

FÜR A™ 

1 TU 80< 

) sNEXT f 
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280 REM *** 
290 a$="<< 
300 A$="EL 
E AGOTARSE 


INICIO 

POLICIA 

POLICIA 


DEL PROGRAMA 
>>" :GQSUE¡ 240 
DEBE CAPTURAR 


*** 

:PRINT 
AL LADRON' 


EL TIEMPO":GOSUB 240 


310 PRINT:A$="CONTROLES:GOSUB 240¡ 



:GOSUB 240 :A$="ANTES D 


A$="JUG. 
POLICIA' 


ERECHO":GOSUB 240:A$="LADRON 
C. CURSORES":GOSUB 240 

320 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 240 


IZQUIERDO JUG. 

GOSUB 240:A$="Q.A. 


D 


-I» 


.. 



370 

INK 1 ,0:INK 2,6: 

INK 3,8 

¡ 








380 

PEN 2:GOSUB 690 










390 

T=250: GOSUB 670 











400 

XP=2:YP=2:XL=19: 

YL=1 9 















:. 1 




410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 


PX=XP:PY = YP:LY=YL :LX=XL 


INKEY(O) 
INKEY(2) 
INKEY(1) 
INKEY(8) 


IF NOT 
IF NOT 
IF NOT 
IF NOT 
LOCATE 
IF C=97 
IF C=99 THEN 
PEN 1 : LOCATE 
F'X=XP :PY=YP 
IF NOT INKEY(67) 
IF NOT INKEY(69) 
IF NOT INKEY(62) 
IF NOT INKEY(63) 
LOCATE YL,XL:CALL 
IF C=97 THEN 


THEN XP=XP-1 
THEN XP=XP+1 
THEN YP=YP+1 
THEN YP=YP-1 
YP,XP:CALL 30000:C=PEEK(29999) 
THEN XP=PX : YP=PY 
GOTO 620 
PY ,PX :PRINT" 


:LOCATE YP ,XP:PRINT"b"; 


THEN XL=XL-1 
THEN XL=XL+1 
THEN YL=YL+1 
THEN YL=YL-1 
30000:C=PEEK(29999) 
L.X : YL=L Y 


IF C=98 THEN 
PEN 3 zLOCATE 
LX=XL :LY=YL 
T=T-1:GOSUB 670 
GOTO 420 


XL 

GOTO 620 
LY,LX:PRINT' 


¡LOCATE YL ,XL :PRINT"c 1 




620 

FOR A-10'.: 

■> t n 

I w 

20C 

! üSOUND 

1 , A . 2 í ¡TE X T 












630 

MODE 1 


















640 

A$="EL POLICIA I- 

ÍA CAPTURADO" :GOSUB 24 

0 : Af= 1 

'Al 

_ LADROI 


:GOSUE 

( 2 





40 

650 

PRINT :A*= 


















-‘GANA fc 

.L PULICIA":GOSUB 240: 

GOTO 1 

10: 

10 








660 

670 

90 

680 

690 


GOTO 660 

LOCATE #1,14,1 :PRINT#1 , "TIEMPO; 


;USING "###";T:IF T<1 THEN 9 


RETURN 

PRINT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"; 


700 

PRINT"a a 




^ " ■ 










710 

PRINT"a aaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaa 

,a" ; 
a" ; 
a" ; 










720 

PRINT"a a 




a a 

a 

a 











730 

PRINT"a a aaaaaaaa aaaaaaaaaaaa aaaa 

a 

a 

a 










740 

PRINT"a a a 



aaa 

a < 

a 

a 

a 

a 

a"; 









750 

760 

770 

780 

790 


PRINT"a 
PRINT"a 
PRINT"a 
PRINT"a 
PRINT"a 


a a a a 
aaaaaaaa 


aaa 

aaa 


a aaaaaaaaaa 
a a. a 


a a aa aaa aaaa 

aaaaaaaaaaaaa 
a 


a 
a 
a 

aaa 

a 
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Plx'x^ Pw&d tíiíííi P&ftyj Pwx-l Px-;-y.'i Px-:-x-d Ex-ra-l frw&l [ 

r^g Egga mm E7sa E%%g F£%g E%gg e?s 






CAZA 




1 








_ 


10 REM ********* CAZA ********* 
20 REM * ANGEL GARCIA DELGADO * 
30 REM ******** G.T.S. ******** 
40 REM 







50 MODE 0:1 
60 INK 0,0 

DADCD f~\ 

ENT 1,100,1,1 


n i p 












5 





i iMr--. i , ^ 

sBORDER 
118 “7 1 o 

O «l IMP-. oL 

f\ 

^ / ti .L 1 M i 


















t v 

Qñ 

DRIGIN C 
POR a-0 

















90 

TO 2*PI 

RTFP F 

1 /70 
















1 00 

F'l OT 0 

.0.2 
























lio 

DRAW 300*COS(a) .1 

50*SIN(a) 





















120 

DRAWR 

) ,30*SIN(a) 

,3 


















130 NEXT a 





140 

F1RÍNT 

ZHRT(22) 

+CHRÍ(1)j 







150 

LOCATE 

9,1 

X- 









160 

F'RINT 

'CAZA" 








170 

PRINT 

CHRÍ(22 

+CHR$(Q); 




190 FÜR a=l TO 300sS0UND 1 ,a,1,15:NEXT a 
200 INK 2,18,7:1NK 3,7,18 

STEP - 


210 FOR 
220 INK 


1 


s-300 TO 
2,7:1 Nl< 3,18 
230 FOR a-1 TO 500:NEXT a 
240 FOR a=0 TO 50: F'RINT CHRÍ(7):FOR 
250 MODE 1 
260 GOTO 310 

270 F'RINT TAEf (20-LEN (a$)/2) :FOR 


SOUND 1,a,1:SOUND 2,a*2,l:NEXT a 


b = l TO 50:NEXT b :NEXT a 


a-1 TO LEN(af-) 


t.I. 


I 




.r 


íi+ 


44 . 1 
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280. b:3: : —MID$ (aT,a , .1 ) ¡F'RINT bi'; : IF b$<>" 

290 KII- XT a 

300 PjR'll'Ff ¡F'RÍtKT 1 ¡F0R a--l TO 200¡N!£X'l a? 

310 REM *#* INICIO DEL PROGRAMA *** 

320 Aí="<< CAZA »"¡GOSUB 270 
33O PRINI sA$="MATA A LOS PAJAR ü S CO|\j I 
340 Ar="CUANDO LOS TENGAS A TIRO"sGOSUB 270 
350 PEINTíAí-"SI DESPERDICIAS 10 CARTUCHOS 
360 Aí=“PERDERAS"¡GOSUB 270 
370 PRI NT ¡ AÍ--" CONTROLES ¡ " ¡ GOSUB 270 
380 AT="LOS CURSORES. DESPLAZAN LA M1R1LLU 
390 Aí~"SPACE. DISPARA LA ESCOPETA"¡GOSUB 
400 PR I NT : A$= " PULSA -- 


THEN PRIN T CHRT(7) 


TI. iRN 


OPETA 

"¡GOSUB 

2 70 



i 

¡GOSIJ 





B 270 











a l 'O U 21) L j 

70 

í"¡ 7 -í ) 










PARA EMPEZAR" 


410 GOSUB 270 


470 IF INKEY 

430 GOSUB 94i 

(Ao) < ->o 

tmFn a- 

po 




0 

¡BORDER 

20 





440 INK 0,20 




450 INK 1,0¡ 

INK 2,3 

¡INK 3,26¡INK 4,2 



460 MODE 0 







470 WINDOW # 

1,1,20, 

1 ,3 ¡F'EN 

#1,4 ¡PAPER #1, 

3¡CLS #1 

480 WINDOW 1 

, 20,4,2' 

j 





4VU rEN 3 







500 PRINT"igi gighighhhi gi g i" 

510 WINDOW 1,20,5,25 

520 F-0 : FA=0 

530 GOSUB 910 

540 X1 = 1 :X2=1¡X3=l¡X4=l 

550 Y 1=2+1NT < RND*17) : Y2-2+1NT(RND* 17) 

560 Y3=2+INT (RND*17) : Y4=2+INT(RND*17) 

570 GOSUB 780 ¡GOSUB 750¡GOSUB 760¡GOSUB 770 
580 X=9¡Y=10¡XB=X:YB=Y 

590 IF NOT INKEY(O) THEN X=X-1:IF X<1 THEN X=1 

600 IF NOT INKEY(2) THEN X = X + 1:IF X >18 THEN X=18 

610 IF NOT l'NKEY (8) THEN Y=Y-1:IF Y<1 THEN Y=1 

620 IF NOT INKEY(1) THEN Y-Y+1:IF Y>20 THEN Y=20 

630 F'EN 1 ¡LOCATE YB , XB ¡F'RINT" "¡LOCATE Y , X ¡ F'R I NT " a " :X B=X ¡ Y B-'Y 

640 F'EN 2 ¡ Y 1 = Y 1 +1 :1F" Yl>17 THEN GOSUB 750 

650 LOCATE YÍ,X1:PRINT" be" 

660 Y3=Y3+1:IF Y3>16 THEN GOSUB 770 
670 LOCATE Y3 ,X3 ¡F'RINT" be" 

680 Y2=Y2-1¡IF Y2<3 THEN GOSUB 760 
690 LOCATE Y2,X2¡PRINT"ef " 

700 Y4=Y4~1¡IF Y4<2 THEN GOSUB 780 
710 LOCATE Y4 . X4 ¡F'RINT"et " 



720 IF NOT INKEY(47 

) THEN GOSUB 790 











/30 IF RND>0.8 THEN 

SOUND 4 ,10+RND*5,10+RND*5, 

10 

,o,i 







f 40 GOTO 590 













fOU LULA 1 E Y 1 , X 1 ¡F'KIN T " ¡ X1 = 1 +1 NT (RND* 18) ¡ Y 1 = 

■1 ¡RETURN 







fau lulh i t i ¿ , a / ¡rrUi'l l ¡X 2= 1 + 1 NI (RND* 18) ¡Y 

_ 

17 ¡RETURN 







770 LOCATE Y3,X3 ¡F'RINT" 
780 LOCATE Y4,X4 ¡F'RINT" 


:X3—1+INT(RND*18)¡Y3=1:RETURN 
! X 4=1 +1NT(RND*18) ¡Y4=l7¡RETURN 


790 IF Y=Y1+2 AND X=X1 IHEN GOSUB 900¡GOTO 750 
800 IF Y = Y1 + 1 AND X=X1 THEN GOSUB 900¡GOTO 750 
810 IF Y=Y3+2 AND X=X3 THEN GOSUB 900¡GOTO 770 
820 IF Y=Y3+1 AND X=X3 THEN GOSUB 900¡GOTO 770 
830 IF Y=Y2 AND X=X2 THEN GOSUB 900¡GOTO 760 ' 
840 IF Y=Y2+1 AND X = X2 THEN GOSUB 900 ¡GOTO 760 
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850 IF Y=Y4 AND X = X4 THEN GÜSUB 900:GOTO 780 

860 IF Y=Y4+1 AND X = X4 THEN GÜSUB 900:GOTO 780 

870 FA=FA+l-GOSUB 910 

880 SOUND 1 ,100,20,15,0,0,31 

890 RETURN 

900 SOUND 2,100:P=P+5:GOSUB 910:RETURN 

910 LOCATE #1 ,2,2 SPRINT#i ,"PTOS:";P¡LOCATE #1,14,2:PRINT#1,"FA:"; 
FA ’ 

920 IF FA>9 THEN GOTO 1050 

930 RETURN 

940 SYMBOL AFTER 97 

950 SYMBOL 97,24,24,24,195,195,24,24,24 

960 SYMBOL 98,252,62,15,255,63,15,116,40 

970 S YMBOL '99 ,0,56,244,255,188,0,0,0 

980 SYMBÜL 100,41,134,42,85,184,85,40,146 

990 SYMBOL 101,0,28,47,255,61,0,0,0 

1000 SYMBOL 102,63,124,240,255,252,240,46 20 

1010 SYMBOL 103,255,255,127,63,7,3,0,0 

1020 SYMBOL 104,255,255,255,255,247,227,192,128 

1030 SYMBOL 105 ,255,254,252,240,240,192,0,0’ 

1040 RETURN 

1050 REM * Y* GANE OVER *** 

1060 FOR A=1 TO 20:F0R B=100 Tü 200 STEP A .-SOUND 1,6,1,15,0,0,31: 
NEXT B:NEXT A x . 

1070 INK O,0:1NK 1,26:1NK 2,15,O:PAPER O:BORDER O:PEN 1:MODE O 
1080 PEN 2 : LOCATE 6,7: F'R I NT 11 SAME OVER " 

1090 PEN 1 :LOCATE 4,12:PRINT"PUNTOS:";USING "######" ;p 
1100 PEN 3:INK 3,15:LOCATE 5,17:PRINT'"OTRA? (S/N)" 

1110 FOR A-1 Tü 50 : A$=INKE Y$:NEXT A 
1120 PEN 1 

1130 IF IIMKEY (60) -O THEN RUN 250 
1140 IF IIMKEY (46) =0 THEN CALL O 
1150 GOTO 1130 
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CARRETILLA 


10 
20 

REM #¡K)f 
REM * (■ 

<#* CARRETILLA ******* 
¡iNGEL GARCIA DELGADO * 








30 

REM %%% 

<***** G 

. T . S . 3 

* ü( * * * * * 










40 

REM 













50 

MODE 0 












60 

INK o,<: 

):INK 1 , 

26 :1NK 

2,7: INK 

3,18 









70 

80 

90 

1 Oí 

i i i 

PAPER t. 
ORTGTN 

):BORDER 

0 










318,210 

:> ro 2 *pi step 

\ O 

PI/70 











FOR a—(. 
:> PLOT C 
"i nRúu *■ 










• ry 3 x - 

Dru^rnc t \ i * o tm < -- \ 









1 J. V 

12( 

131 

J UrVHvV u 

D DRAWR 
:> NEXT £ 

.1 V T l~/ U tJ \ O / ¡f i 'p 

m * C T Kl { \ n 

j.» m \ a / 










~ 9 

a 

^ ® ' 9 ^ 












14( 

I) PRINT 

CHRÍ(22 

!)+CHR* < 

1) ; 











15t 

:> LOCATE 

í 6,12 













Í6< 

p PRINT 

"CARRETILLA" 













Í7( 

D PRINT 

CHRi (22 

!)+CHRÍ( 

0) ; 












18« 

0 1 NK 2 

,7,0:INF 

i 3,0,18 

1 












19i 

J F'OR a- 

=1 TO 3C 

>0: SOUND 

i 1 ,a,l , 

15 ¡NEXT 

a 







20< 

0 INK 2 

,18,7:11' 

JK 3,7,1 

8 







21 < 

n n. 

0 FOR a : 
0 INK 2 

-300 TO 
,7:INK 2 
=1 TO 5C 
=0 TO 5C 

1 STEP 

-2:SOUND 1,a 

,1 

: SOUND : 

*3 

f- 9 

a*2 , 

,1 

¡NEXT 

í, 1S 












rurv 

240 FOR a : 

)0 :NEX 1 
): PRINT 

a 

CHRi-(7) 

: FOR t 


.1 

TC 

3 50 

: N 

EXT 

b 

; NEX 

T 


° c; '"' MODE 
GOTO 


250 
260 
270 
280 
290 
300 
310 
320 
TILLA 
UB 
ER 
330 
TAR 


1 

310 

PRINT TAB(20 
bí-Mi'DÍ(aí,a 
NEXT a 

PRINT:PRINT:FOR 
REN *** INICIO 
Aí— " < 

LOS 


LENCai)/2):FOR a=l 
1) :PRINT bi;:IF bi- 


TO LEN<ai) 

>" " THEIM PRINT 


CHRií7) 


70 : Aí 
LADRILLOS 


a~l 
DEL 

CARRETILLA > 
LADRILLOS"sGOSUB 
"TU CHALET EN 
PERDERAS” 


a:RETURN 

*** 

270:PRIN 


: Ai—"RECOGE CON TU 
‘NECESARIOS PARA CONSTRUI 







































































lií 









GARRE 


TO 200:NEX1 
PROGRAMA 
>":GÜSUB 

270:Ai-" 

PLAYA":GOSUB 270:PRINT:A$="SI DEJAS CA 
GOSLIB 270:PRINT 

Aí="CURSOR <. IZQUIERDA"sGOSUB 270:Ai-"CURSOR 
LADRILLO) " sGÜSUB 270 .-PRINT :AÍ="PULSA -S- PARA EMPEZAR" :GOSUB 


A 


"CONTROLES:":GOS 
>. DERECHA 
EMPEZAR" 


(SOL. 
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340 IF INKEY(60)< >0 THEN 340 
350 GOSUB 590 

360 INK 0,26sPAPER OsBORDER 26 
370 INK 1,0:1NK 2,2:1NK 3,24 
380 nODE O 

390 INK 10,2:INK 11,8 

400 PAPER 3:FÜR A=1 TO 25:PRINT STRINGÍ(20,"i");:NEXT A 

410 WINDOW #1,2,19,2,4:CLS #1 

420 PAPER O:WINDOW 2,19,6,24:CLS 

430 WINDOW #2,20,20,22,24:CLS #2 

440 P=0:FA=0:GOSUB 560 

450 D~1:Y=8 

460 XL-.1 :YL=2+INT(RND*16) 




_ 470 IF NÜT INKEY(8) THEN D-l :Y 

=Y-J. : IF 

Y <1 THEN Y = 1 



U 480 IF NÜT INKEY(1) THEN D-2: Y 

= Y +1 : IF 

Y>14 THEN Y=l / 

1:1F C0= 

= 1 THEN 

SÜUND i,i00,10:C0=0:P=P+5:GOSUB 560 






490 PEN 10:IF D-2 THEN LOCATE Y,18:PRINT" a ";:LOCATE Y,19:PRIN 
5 i IF C0=1 THEN LOCATE Y+3,18:PRINT"i" ; 


T" be tí 
500 IF D--1 
" 5 rIF COI 

51O PEN 11sLOCATE YL,XL:PRINT" 


THEN LOCATE Y,18:PRINT" e " 
THEN LOCATE Y +1,18 s PRINT"i"; 

i XL-XL+1 


:LOCATE Y,19:PRINT" hyf 


520 IF XL-.18 THEN IF YL>Y AMD YLCY+5 THEN IF 00=0 THEN C0=1 sSÜUND 
1,50,20:GOTO 460 



530 IF X 

L > i9 THEN LOCATE YL.19 

l , pR l |\|“f 

j " : SÜUN1 

D 4,200 

, 20 , 

15 ,C 

), o,; 

31 s 






FA=FA+1 : i 

GOSUB 5¿ 

bO: LOCATE YL.19 

'¡PRINT" 

"sGÜTO 

460 









540 LOCA 

TE YL , XI 

_ SPRINT' 

' i " " 

± 4 










550 GOTO 

470 











560 LOCA 

TE #1,2 

,2 sPRINI 

r #i,"pí 

:" ;P:LOCATE #1 

, 12,2 sPRINT 

#1 , 

n i -- 

t r H 

11 

" 3 





570 IF FA>4 THEN 720 


i.:: 

...I 

190 

O 

00 

6 

p 10 

6 

20 


SYMBOL AFTER 97 
SYMBOL 97,0,0,0,15,15,15,7,14 
SYMBOL 98,14-, 15,15,15,31 ,57,48,56 
8 YMBÜL 99,192,55,15,135,135,193,11! 


112 


630 S YMBOL 100,254 ,252,240,238 


13,155,31,14 


é 

40 SYMB 

0 L J. 0.1. , 0,0,0 „ 240 ,240.240 .224 . 

1 12 






¿ 

50 SYMB 

OL 102,112,240,240,240,248,156,12,28 






¿ 

60 SYMBÜL 103,3,236,240,225,2 

25,131, 

1 4 , 14 






670 SYMB 

UL i04,127,63,15,119,251,217, 

248,112 






680 8 YMBÜL i.05,126,235,213,164 

,193,16 

5 ,209,1 

•1 / 

¿LO 





Í7 

90 8 Y (IBUL 106,36,145,2 , /2,37 

152,37, 

239 






/ 

00 b f HBUL 10 t , 3,29,243 ,235,2.1 

3 n .t C ? ¡f 1 

.1. i , 6 2 






í 

: . 

nr: i ü 

PPM 

r'.IM 










<T- ^ LEI H < 1 (EL LJ V L_ 1 \ .f. /¡\ 

A -••• 1 10 20 : F 0 R B = 10 0 T L 

x i; a 

200 ST 

LTLÍ» A . Oí ií IKin 1 r.7 

, 1 , J. 5 , 0 

i I ;**:> 1 |. fvl 




'X !' R «ÍMP 


1 '* l ~ '• 3 

4 ij • J i v iv 



74 0 INK 

0.0:1 NK' 1 .26:1 NK 2 . i5 

0..k.P APJíF 

OiRORTlFR O “PE 

M 1 íMODI 

“ 0 



750 PEN 

2 i LOCAT E 6,7:PRINT"GANE ODER’ 







760 PEN 

1 sLOCATE 4, 1 2 s PR i NT"PUNTOS : " 

ÜSING " 

######" 

;P 




"i 

'70 PEN 

3: INK 3,15:LOCATE 5,1" 

SPRINT 

" OTRA? 

íS/N)" 





. 

•'80 FOR 

A — 1 TU 50 :A$= INKEY $ sNEXT A 







< 

'90 PEN 

J 








ÍL 

3o 0 IF i 

NKEY(60) -0 THEN RUN 21 

;o 








.1. 0 J. I- J 
¡20 GUI L 

NKE r (46)—0 1HF-N CAI 1 i 

) 







L 

8 0 1 j 
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E223 EES-J E553 ESS3 rzzz E5S3 ESÜ 


CAPP-BALL 


30 REM ******** G.T.S. * * * * * * ¡j 
40 REM 
50 MODE' O 

60 INK O ,0:1NK 1,26:1NK 2,7:1N 
70 PAPER O;BORDEE O 
BO QRIGIN 318,210 
90 POR a-O Tü 2*PI STEP PI/70 
100 PLÜT 0,0,2 

110 DRAW 300*CÜS< a > , 150*SIN(a) 
120 DRAWR O,30*SIN(a),3 
130 NEXT a 

140 PRI NT CI4RÍ (22) +CHRÍ (1) ; 

150 LOCATE 7,12 

160 PRi NT "CAPP-BALL" 

1 70 PR í NT CHRi (22) +CHRÍ (O) ; 

180 INK 2,7,0:1NK 3,0,18 

190 POR a--i Tü 300 s SÜUND l,a,l 
200 1NK 2,18,7:1NK 3,7,18 
210 POR a-30 O TO 1 STEP -2:S0UI 
220 1 NK 2,7:1 NIC 3,18 

2 3 O F 0 R a --1 ' r O 5 O O : N E X T a 

240 POR a-O Tü 50:PRINT CHRi<7 
250 MODE .1 
260 GOTO 310 


290 NEXT 







% 

* 





* 















: 3,i8 



















































15: NEXT' 

a 



ID 1 , a , 1 

:SOUND 2,a*2,1': 

NEXT a 






¡PQR (j~ 

1 Ti l R/'v i 






» N L_. A 1 

u s 

NEX 1 a 






a=l Tü 

LEN(ai) 



P bí<>" 

" TREN 

PR í NT L 

;HRi (7) : 


* 




NEXT a: 

REIURN 





o" f 'rni" !fa0faUB 2 /O :PRINT : A*= "PROCURA INTRODUCIR L 

.Í JL ;';.°„^Í7' UB 2 /O : A4 :; -"" QUE CAEN, EN EL RECOGEDOR DE ABAJO" sOSsÍJB 

' O “A-i— RARA CONSEGUIRLO AYUDATE DEL RECOGEDOR" :COSI IB 970 

™" 1N I ERMED1 ?" ! eOSUB 270 :PRINT :Ai-"CONTROLES " :Ai-"CURSOR ; 
DERECHA " t GÜfaUB 2 70 : Ai- "CURSOR < . I ZÜUIERDA " : GOSl IB 270 ■ Ai- "SPACI 
SOLTAR":GÜSUB 270 . bl 

34O PR:INT : Ai- "PULSA -S- PARA EMPEZAR" :GOSUB 270 
350 .!.!■■ INKEY (60) <>0 TI-IEN 350 
360 GOSUB 730 

370 INK O,26:BURDER 26:PAPER O 
380 INK 1,O:INK 2,6:1NK 3,9 
390 1 NK 4,15 
400 MODE O 

4 i O í-'EN 4 :: PR I NT STRI NGi (20 , "a") ¡¡ : POR A-1 TO 23 : PR I NT " a 
a a"::NEXT a 
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7Í7 




1 


j-2 O PK' ¿N ! o I R .1NB 4 (120 9 


4a JJ 4~¡ 


Wm 


430 W í NDÜW 2 , .1.2,2,24 : W1 NDQW #1,14,19,4,7 
440 W1MDÜW #2,14,19,10,13 


430 WIMDÜW #3,14,19,16,19 

460 P4_0iF h- 0:GÜSUB 6Ü0 sÜObUB 690:GÜSUB 710 


470 D --1 s YD--4 : Y=6 : Cü=0 



480 PEW 3 

490 XÍj— i : YB=1+ÍNT (RIMD* 1 1 ) 


500 PEIM 
510 IF MUI 


:LOGATE Y, 14sPRINT" 
IIMKEY (8) 


TREN Y = Y- 1 :TF Y <1 TREN Y-1 

Y- 


20 IF NOT INKEY(l) THEN. Y-Y+l : Il :r Y >11 TREN 
530 IF 00=0 AMD XB=14 AND YB=Y FREN SÜUND 1,100,1:00= 

540 LOCATE Y,14:TF 00=0 THEN PRINT"c" ; EL8E PRiNT"é" ; :YB=Y 
550 IF 00=1 TREN GOTO 590 
560 LOCATE YB,XB:PE 1 NT" ";:XB=XB+1 

¿, 1000 ,30,15,0,0,31:FA=FAi-1 : G08UB 690 :GÜT 


570 IF XB>23 THEN SÜUND 
O 490 


580 LOCATE YB,XB:PRINT"g" ; 

590 IF 00=1 AND NOT 1NKEY (47) THEN LOCATE Y , 14 s| PR 1 Hl Tj ‘ f " ; :LOCATE Y 


,15 SPRINT "9 
A 



; :XB=Í5 süü=Ó :FOR A=100 Tü 200 STEP 5 .-SÜUND 2,A,1 :NEX'T" 


600 LOCATE YD,23SPRINT" 
610 YD-YD+D 


620 IF YD<2 


Y”i. 







D 

Ü : 

= 1 






640 PEN 3 ¡LOCA I E YD ,23 :PRINT"bí_ü " ; 

650 IF XB=23 THEN IF YB=YD OR YB--YD+1 OR YB=YD+2 TRIEN GOTO 670 


660 GOTO 500 

670 LOCATE YD,23 SPRINT"bed" $ sSOUND 4,50,20:p =p+15:GOSUB 680:GOTO 


490 


680 LOCATE #1,1,1:PRINT#i , " PTÜS" :LOCATE #1,2,3:PRINT #1,P:RÉTURN 
690 LOCATE #2,1 , i s PRI MT#2 , " FALLOS " ; : LOCA TE #2,2,3: F’R I NT #2 , FA 


700 IF FA>4 THEN 830 ELSE RETURN 
710 LOCATE #3,1,1:PRINT#3 , " CAPP";L OCATE #3,1,3:PRI NT #3, 
RETURN 


BALL" : 


720 GOTO 720 

730 SYMBOL APTER 97 

740 S Yi'TBOL 97 ,0,126,126,126,126,126,126,0 


.íl 


""i.-7 


4 . 


750 SYMBOL 98,0,0,0,3,71,111,127,255 
760 SYMBOL 99,Q,129,129,129,129,195,255,126 
770 3 Y MBOL 100,0,0 ,0,192,226,246,254,255 
780 SYMBOL 101,60,102,223,223,255,189,195,126 
790 S YMBOL 102,126 ,255,195,129,129,129,129,0 
800 S YMBOL 103,60,102,94,94,126 ,60,0 ,0 
810 SYMBOL 104,66 ,8,162,8,64,21,128,42 


82o !■■:£. I IJK'N 
830 REM Y * * SAME ÜVEE *** 


t 


840 POR A=1 Tü 20:POR B=10Ü Tü 200 STEP A:SÜUND 1 ,B,1 ,15,0,0,31:N 
EX'i BsNEXT A 



850 INK O , O : INK 1 ,26 :114E 


,15,0:PAPER O:BURDER O:PEN 1:MODE O 
860 PEN 2:LOCATE 6,7;PRÍNT"GAME OVER" 

870 PEN 1 :LOCATE 4,12: PR INT " PUNT OS : " ;USI IMG " ###### " ; P 


880 PEN 3 ; INK 3,15:LOCA TE 5,17: PRlNT "ÜTRA? (S/N)" 
. . ' ' .. A 


890 POR A=1 Tü 50 : A:í~ I IMK'E Y $ : NE X T 
900 PEN 1 



910 IF IIMKEY (60) =0 THEIM RUN 250 
920 IF INKEY(46)=0 THEN CALE O 
930 OÜT O 910 




























































































































































CS53 E5%3 P5553 ES553 E35x3 r-%%3 ES? 


CANIBAL 


10 REM ******* CANIBAL. ******** 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******** G.T.S. ******** 

40 REM 
50 NODE O 

60 INK O , O : INK 1 ,26:1NK 2,7:1NK 3,18 

70 PAPER O:BOEDER O 

80 ORIGIN 318,210 

90 POR a«0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

i .1.0 DRAW 300*COS (a) , 150*SIN < a) 

120 DRAWR 0,30*81N(a) ,3 
130 NEXT a 

140 RRi NT CHRÍ(22)+CHRÍ(1 > ; 

150 Aí~ " CAN I BAL " : A= i 1 - <O . 5* (LEN (Aí))) 

160 LOCATE A , 12:PEINT Aí; 

170 REINT CHRÍ(22)+CHRÍ(O); 

180 INK 2,7,0 :1NK 3,0,18 

190 POR a=i TO 300:S0UND 1,a,1,15:NEXT a 

200 INK 2,18,7:1NK 3,7,18 

210 POR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7:INK 3,18 

230 POR a=l TO 500:NEXT a 

240 POR a=0 TO 50:PRINT CHRÍ(7):F0R b=l TO 50:NEXT b:NEXT a 
250 MÜDE 1 
260 GOTO 310 

270 REINT IAB(20-LEN<aí>/2> :FOE a=l TO LEN(aí) 

280 L) í L|'| i Bí (aí , a , 1) : P'R I NT bí;:IF bí<>" " THEN PRINT CHRÍ (7) ; 
290 NEXT a 

300 PRINT:PRINT:POR a-1 TO 200:NEXT a sRETURN 
3.10 REH *** INICIO DEL PROGRAMA *** 

320 aí : - " << CANIBAL »" :GÜSUB 270:PRINT 
330 Aí~"MATA CON TUS FLECHAS A":GOSUB 270 

340 Aí--"LOS CANIBALES QUE SE INTRODUZCAN" :GÜSUB 270:AÍ=="EN TU 
PAMENTO - " :: GOSUB 270 :PRINT :Aí4=" CONTROLES : " :GÜSUB 270 : Aí= "CURSOR 
RIBA":GÜSUB 270:Aí="CURSOR ABAJO":GOSUB 270:Aí="SPACE. DISPARA 
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1 




















































í Al 

1 



Al 

< 



Fl 















.i 

































































































































































ECHA" :GOSLJB 270 

350 PR1NI :aí=" PULSA -S- PARA EHPEZAR": GOSUB 27o 
360 l'F INKE'Y (60) < >0 T I-i EN 360 



3 /O GOSUB 650 








38O BOkUEK 26:1NK 

D,26:INF 

: 1 , 0:1 N 

K 2,9 





J7U rHrcH u 

400 FOR A—1 

:MUBE O 
Tü 25:1 

:PEM 2 







-'KJ.NI bIKINbf L 

,2,4 :WÍNDÜW 2,1 

0 , "t?" ) ; 

9,6,24: 

: NEX 1 




“tiV 'Al il'IL'UW I ,¿,17 

á'lñ n - i « vi-i / > , v - -1 , l;-- 

0 L C' Íl' i n 

CLb 



430 GOSUB 6 , 
440 XC-1 ¡¡ YC 

. ‘ í'i 








-5+TNTÍRNB*13 ) 







450 PEN J 









460 ÜN D GOSUB 500 

,550 







470 LOCATE 

YC,XC:PRINT" " 

XC--XC +1 

: IF XC) 

17 THEN 

GOSUB 

610 


480 LOCATE 

r'C ,XC :PRlNT"a" 

LOCATE 

YC,XC +1 

: PR 1 NT" 

b" 



490 GOTO 46 

;> 








500 IF NOT 

INKEY(0 

THEN ) 

(=~ X — 1 : IF 

X <2 THEN X-2 




510 IF NOT 

INKEY<2 

THEN > 

'-X +1 : IF 

X > 18 r 

HEN X -1 

8 



52o LOCA 1E 

Y,X — 1 :P 

-L! NT" " 

LOCATE 

Y , X -i-1 : F 

RINT" " 

: LOCATE 

Y , X : PR 

I NT " 

c " 









53U .Lr MUI 
er. a t\ o nr t i i o w \ 

1 Nr-.t T líí) 1 HtN 

U=2 : SUUN.U 1 , 100,10,1 Z 

, 0,0,31 



•_ ,i +U ht 1 UKN 

550 LOCATE 
Y=! : RETURN 
560 LOCATE 
580 

Y Y « DD T KIT " " . V - 

- Y -E l u t l: 

Y >17 THEN D¡s . ;1 . 

F A--F A+1 

: GOSUB 


! , Av a 1 1 \ J. 

‘ 


ü 

Y ,X SPRINT"c":IF 

■ Y -- Y C 7 

FIEN IF 

X=XC OR 

X^XC+1 

THEN GOSUB 

570 RETURN 









580 SOUNO 2 

,600,20 

,15,0, 0 

,10:LÜCATE YC,X 

C:PRINI 

"d" :LOCATE YC . 

xc-n 

:PRINT"d" 









590 F-P+5sGOSUB 62 

j 







600 D=1: Y~1 









610 LOCATE 

YC , XC sPRINT" " 

LOCATE 

YC ,XC+1 

:PRINT" 

":XC —1 

: Y 0=5+1NTÍR 

NDY13) :RETURN 








620 LUUM 1 t 

41,2,2: 

F'K 1 N 1 # I 

"PTOS : 1 

;P:LOCATE #1,1 

3,2 :PRINT#1,"F 

A:" ; 

Ir A 

630 IF FA>7 

THEN 7 















ASñ PPM Q Y MR ni AP'TPP O 







655 SYMBOL 

AFTER 3 








660 SYMBOL 

97,99,6 

2 , 107, 1 ! 


90,162, 

156 




670 SYMBOL 

98,190, 

221,149 

,157,141: 

1,148,54 

1,119 




680 SYMBOL 

99,0,0, 

0,198 , i: 

27,198,C 

>,0 





690 SYMBOL 

100,137 

,32,10, 

28,17 ,6 

>8,0,14é 





700 SYMBOL 

101,111 

,247,23: 

~ ,27,18 c 

?,219,196,30 




710 RETURN 









720 REM Y*Y 

GAME OVER Y Y Y 







/JO FUK A —1 

1 0 20 : 

FOR B—1 

YO Tü 2< 

>0 STEP 

A : SÜUNL 

1 , B , 1 , 

15,0,0, 

31 :N 

EX 1 B :NEX 1 

A 



: ’AF'ER 0 

BORDER 




i IMF-, u , u : i imi-s i , 

750 PEN 2:LOCATE 6 
*7Aí’l P.lTkl 1 «I nr-AIT ñ 

¿ 6 : 1 NK 
, 7:PRIN 
,12: F'R I 

» i nrATT-' 

cL ^ i ^ 0 • 1 " 

OrF'EN 1 

:MODE O 


ÜHI Id UVC.R 

Nir " PUNTOS jUSINtí "######" ;p 

1 "7 n PP T KIT »• »• 



'7“Vi ) PPM "4 - T Mk* n 1 c ¡ 



780 FOR A=1 

^ ’ • w *> ~ 
TU 50: 

* « i- r a i > 

T Mk'P Y * - MP Y T 

A 




790 PEN 1 







800 IF INKEY(60)”0 

TFIEN RUN 250 





8 i 0 IF INK-E 

y ( 46) — 0 

TUIl'M ('/ 

\{ ; 





820 GOTO 800 
































1987 - AMIGOS DEL AMSTRAD ■ 29 






























































































































E2S3 

E£S3 

E££3 

ES3 



s ES553 E&S3 

z&Zi FFF3 FF5g E2 

E 

2 










































































































































1 








1 











BOMBAS 








































































































10 RE 

N * * * * * 

*** BOMBAS ******** 



















20 KEM * ANGEL GARCIA DELGADO 

* 























30 RErl ******** ü.¡ 

.b „ ##*> 

r.**** 






















*+\j «tn 



























■jv nuL'c *_/ 

60 IWK 0,0:1NK 1,26 
70 PAPER Os BORDER O 

: I NK 2,' 

7 - 

T l'vll:"’ Q 

1 R 























x o 






















80 QRIGIN 318,210 


























90 FÜR a=0 Tü 2*PI 

3TEP PI 

f 10 





















100 PLOT 0,0 




























110 DRAW 300*C0S(a) 

, 150#SINía) 



























120 DRAWR 0, 

30*SIN( 

a) ,3 
























130 NEXT a 

























140 PRINT CHRÍ(22)+CHRÍ(1) 




























150 LOCATE 8 

1 D 
, 1 2_ 





























160 PRINT "BOMBAS" 



























1 /O PR i N 1 CHR5 (22) +LHRÍ (. U ) 

5 



























idu JiiMr- xi 

190 FÜR a~l 

T uilp 1 a 

Tü 300 s 

“7 u T K1L-*' 

, u , i o 
SÜUND 
3,7,1! 
STFP 

1 

D 



,15 

:NEX 

T 























, a 

a 






















J. 1NP*. 2_ , J. CJ , f m X 1 M I 

r> i r\ crnc a-'unn rn i 

D 

_ O 

• cni iKin 

L ,a , 

i 

qdi iwn 

'-y 

i*? 

i * 

KIPYl 














220 INK 2.7: 

I Nl<‘ 3 , l 

8 









9 


- * 
















230 FOR a=l 

TO 500: 

NEXT 

























240 F 

"OR a=0 

Tü 50:P 

Rl'NT CHRÍ-(7) : FOR b 

= J 


10 

5 

0 : 

NEX' 

r 

b : 

NEX1 

' 

¿l 










250 b 

IODE i 




























260 C 

iOTO 31C 




























270 F 

’RINT TAB (20-LEN <aí) /2 

) ; 

FOR a 

= 1 1 

0 

LEN 

(aí) 
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280 b$=MíDí<a*,a,i) sPRINT bíj : IF b$<>" " THEN PRINT CHRí(7) ; 

290 NEXT a 

300 PRINT¡PRINT:F0R a=l Tü 200:NEXT a : RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 A$="« BOMBAS •»"sGOSUB 270:PRINT:AÍ="DESTRUYE CON TU DESTRUC 
TÜR"sGOSUB 270¡A$="LOS AVIONES Y SUBMARINOS ENEMIGOS"¡GÜSUB 270:A 
$="ANTES DE QUE SE TE AGOTE"sGOSUB 270:A$="LA MUNICION"sGOSUB 270 
330 PRINT:Aí-"CONTROLES:"sGOSUB 270:A$="CURSOR >. DERECHA"sGOSUB 
270: Aí--" CURSOR <. IZQUIERDA" sGOSUB 270:Aí="Q. DISPARA MISIL" sGOSU 
B 270 sAí="A. DISPARA MISIL"sGOSUB 270 
340 PRINT:A$="PULSA -S- PARA EMPEZAR"sGOSUB 270 


400 WINDGW #1,2,19,2,4:WIND0W 2,19,6,24sWINDOW #2,2,19,16,24 
410 PAPER #2,2:PAPER #1,8:PAPER OsCLS #1sCLSsCLS #2 
420 p~0 :FA=0 sGOSUB 670 * 

430 D1=0 : D2-0:Y A=5:YS=15 s Y=10 

440 IF NÜT INKEY(S) THEN Y=Y-1:ÍF Y<1 THEN Y = 1 

450 IF DI=0 AND NÜT INKEY(67) THEN SOUND 1 ,100,10,15,0,0,31 :D1 = 1s 
X1=9 s Yi = Y+2 

460 IF NÜT INKEY(l) THEN Y=Y+lsIF Y>15 THEN Y-15 

470 IF D2=0 AND NÜT INKE Y(69) THEN SOUND 1,100,iO,15,0,0,31:D2=1: 
X2=11 : Y2=Y+1 

480 PEN 10 sPAPER OsLOCATE Y, 10 SPRINT" + g " 

490 YA=YA+lsIF YA>'16 THEN LOCATE 16,3 sPRINT" " sYA=í 
500 PEN 11:LOCATE YA,3:PRINT" be" 

510 IF DI-O THEN 550 

520 LOCATE Y 1,X1 :PR1 NT" "sX1=X1-1sIF XI<1 THEN D1=0sGOSUB 650:GDT 
O 550 

530 PEN 12 ¡LOCATE Y 1 , X1sPRINT"i" 

540 IF XI=3 THEN IF Yl=YA+iüR Yl=YA+2 THEN A=3 :B=YA+l sGOSUB 630: 
D1=0:Y A=1 

550 PAPER 2:YS=YS-1:IF YS<1 THEN LOCATE 1,17sPRINT" 


560 

PEN 1 :LOCATE YS , 17¡PRINT"de 1 

1 



570 

IF D2=C 

i THEN 610 





580 

LOCATE 

Y2,X2sPRINT" " 

:X2=X2+; 

1:IF X2 

>19 THEN D2=0:ti 

iUSUB i 


:YS=16 


Tü 610 

590 PEN 12sLOCATE Y2,X2 ¡PRINT"h" 

600 IF X2=17 THEN IF Y2=YS+J. OR Y2=YS THEN A=17 sB=YS sGOSUB 630 :D2 

=0:YS=16 

610 REM 

620 GOTO 440 

630 SOUND 1,50,5:LOCATE B,A:PRINT"j j":SOUND 4,400,20,15,0,0,31:P= 
P+5sGOSUB 670 

640 LOCATE B,AsPRINT" "sRETURN 
650 SOUND 2,50,5,15,O,0,31:FA=Fí 
660 RETURN 

670 LOCATE #1,2,2:PRINT#1 , "PT : " 

680 IF FA>9 THEN 820 
690 RETURN 
700 SYMBOL AFTER 97 


350 

IF INKEY(60)O 

0 

THEN 

350 












360 

GÜSUB 700 















370 

BOEDER 

BsINK C 

i, 20:1NK 

2,14 

: INK 8,8:1NK 

1 ,26:1 

MQDE C 

) 








380 

TOA 

INK i 0, 

PÜPCI5 £ 

, 0:1NK 1 

j .ri e - pe 

* 1 
’KI 

,2:1 NK 
i «irru? 

12,6 
A-- 1 ' 

rn 

r>*=: u de 

T KIT 

c 

ÍTD T MÍ2 

±- nn c 

y~? 

\ U U Ivl 

ILT V 

' T 

A 









+ 1 sGOSU] 

B 670 







P ¡LOCAT 

E #1,3 

2 

,2:PRINT#1 , "FA s" ;FA 

















5,189 

,1 

■*- 7 1 - v 

“l 



31 , U , 

.) 





( ) 

■i •*- 1 - 






ü i, ü 










. i j..i .I .j..!.i.1.L ...j _ i 












1987 ■ AMIGOS DEL AMSTRAD - 

31 





! ! 1 1 f | ! í I 





! M ! | 1 ! 

. 1 .1 .i.i. 1 .1.i.i.4.i.i. 


































































7 «'l-O 
750 
760 
770 
7B0 
'700 
800 
810 
820 
830 
EXT 
840 

és® 
860 
870 
880 
890 
900 
9 1 0 
920 


8 'í MOUL OfJ , 6,8,7 , J. 3 7,1 1 1 ,63,O , O 
8 YOBUL 101,0,0,192,251,255,243,0,0 
S Yl"1BÜL. .1 02,0,9,7,45 ,255,127,63,31 
SYMBOL. 103 ,0,144 ,224,180,255 ,254 ,252,248 
tí YFIBUL 104 ,0,40,56,16,56 ,36 ,36,16 
BYMBUL 105,1 6 , 56,56,56,16,56 ,40,0 
S YHBÜL i 06,36,60,17,128 ,68,81,0 , .1.47 
RE TURKI 

REM ##* GANE OVER #** 

FÜR A--1 Tü 20 : FÜR B=100 TO 200 STEP ArSOUND 1 ,B , 1 , 15,0 ,0,31 :N 
B:NEXT A 

INK O ,0:1WK 1,26:1NK 2,15,0:PAPER O:BURDER O sPEN 1 : MUDE O 
■EN 2 t LOCATE 6,7: PR í NT " GAME OVER " 

•EN 1:LOCATE 4,12:PR 1 NT"PUNTOSs";U9ING 
•EN 3 :1NK 3,15: LOCATE 5,17:PRI NT ’ "OTRA" 

UR A— 1 Tü 50 : A$== INKE Yí : NE X T A 
:, EN 1 

IF INKEY (60) “O I"FIEN RUN 250 
1F INKEY(46)-O THEN CALL O 
GOTO 900 


"######" ;P 
’ CS./M) " 
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C553 ES5S E55S3 ES533 ESv?3 E5-53 E££3 ExS-g E?7? 
fx‘:'x'-J K-TF-U FFx'j fcws-d ETi'Fi^ F-x'-FJ [ 


K\VkV3 Kvvff 

■y K&Wd . H: l_J • —¥F<d FFFd FíWíí f&ítti FWFd FFWíd 

¡SEE2E 


AVANTI 



i O 
20 


REM 

REM 


******** AVANTI ******** 
* ANGEL GARCIA DELGADO * 


ju nc.il ** * >¡ 

40 REM 

50 MODE 0 
60 INK 0,0 
/O PAPER 0 

I' 'P T * T U ■ 1 d vJ o 'T / r , T1''r'I' , T''!' 

: LNK F-,-26-t IMK 2y? s FWK 
sBORDER 0 

80 ORIGIN ; 

318,210 

90 FOR a-0 

TO 2*PI STEP F’I/70 

loo plot o 

.0,2 

110 DRAW 300 % COS(a) ,150*SIN ( a) 

120 DKAWh l 

D,30*SIN(a) ,3 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


,7,0:1NK 3,0,18 


NEXT a 

F'RINT CHE* (22) +CHRÍ (1) 
LOCATE 8,12 
PRINT "AVANTI" 

PRINT CHE*(22 > +CHRÍ(O) 
I NK 
FÜR 
INK 
FOR 
INK 
FOR 
FOR 
MODE 


, a * 2,1 ¡i N E X I 


b ;NEXT 


a= 1 l'O 300 : SOUND i , a , i , i 5 s NEX T a 
2,18,7:INK 3,7,18 

a-300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2 
2,7:INK 3,18 
a-1 TO 500:NEXT a 

a=0 TO 50 SPRINT CHRí(7):F0R b=l TO 50;NEX1 
1 

GOTO 310 

PRINT TAB(20-LEN(aí)/2):FOR a=l TO 
bí=MIDÍ(aí,a,1) sPRINT bí;:IF bíO" " 

NEXT a 

PRINT:PRINT:FOR a-1 TO 200:NEXT a:RE 
REM *** INICIO DEL PROGRAMA *** 

Aí-" <•< AVAN TI >>" :GOSUB 270 

PRINT:AÍ~"RECOGE CON TU CAZA GALACTICO":GOSUB 270 
Aí="EL COMBUSTIBLE PARA CONTINUAR":GÜSUB 270 


LEN(aí) 

" THEN PRINT 


URN 


CHRÍ( 1 ) 


Aí="LA BATALLA, PERO TENIENDO MUCHO"cGOSUB 
Aí-"CUIDADO DE NO ESTRELLARTE CONTRA" :GDSUB 
AÍ="LÜS NUMEROS ASTEROIDES":GOSUB 270 
PRINT:AÍ="CONTROLES:":GOSUB 270 


70 

270 
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390 

400 

4 lío 

420 

430 

440 

450 

460 

470 


480 

490 

500 

510 

520 

530 

540 

INI" 

550 

INT" 

560 

570 

580 

590 

600 

5,0, 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

EXT 

830 

840 

850 

860 

870 

880 

890 

900 

910 


A$="CURSOR ARRIBA" sGOSUB 2 70 :"CURSOR ABAJO 11 :GÜSUB 270 
PR1NT :A$~"PULSA -S-- PARA EMPEZAR" sGOSUB 270 
IF 1NKEY< 6 O>< >O THEN 410 
GÜSUB 700 
INK O ,0:1NK 1,20 
INK 2,5:1NK 3,9 
PAPER O:BURDER O 
MODE 1 

PEN 3; SPRINT STRINGí (40,97) j "a PUNTOS: O aaaaa FAI LOS 

a"jSTRINGÍ<40,97): 

LOCATE 1,24 SPRINT STRINGÍ(40," + ") 5 
GÜSUB 670 
X=12 : Y = 1:XB=X:YB=Y 

ENT 1,100,-1,1 
ENT 2,100,1,1 

IF RND>0.95 THEN PEN 2:LOCATE 1 + INT (RND#39> ,4+lNT <RND*18> :PR 
c'f ; 5 SOUND 1 ,100,10,15,0,0,31 

IF RND>0.97 THEN PEN 1sLÜCATE 1 + INT (RND#39),4+INT<RND#18):PR 
d "5 : SOUND 2,50,10,15,0,1 

IF NÜT INKEY(O) THEN X = X--1:IF X<4 THEN X-4 
IF NÜT INKEY(2) THEN X=X+i:IF X >23 THEN X-23 
y — y +1 :1F Y>39 THEN Y=1 
LOCATE Y , X sCALL 30000:C=PEEK(29999) 

IF C=97 OR C-99 OR C-102 THEN PRINT"e" :FA=F'A+1:SOUND 4 , 0 , 30,1 
1,31sGOSUB 670 

IF 0=100 THEN SOUND 4,20,10,15,0,2:P=p+5:GOSUB 670 
PEN 1 

LOCATE a B,xBSPRINT" LOCATE Y,X:PRINT"b"; 

XB-X:YB=Y 
GOTO 540 
GOTO 660 

PEN 1 ¡LOCATE 10,2:PRINT PsLOCATE 31,2:PRINT FA 

IF FA>4 THEN GOTO 810 

RETURN 

DATA 205,96,187,50,47,117,201 
RESTORE 700 

FOR a=3000O TO 30006:READ bsPOKE a ,bsNEXT a 
SYMBOL AFTER 97 

SYMBOL 97,238,170,238,O,238,170,238,O 
SYMBOL 98,254,17,56,108,108,56,17,254 
SYMBOL 99,60,126,255,252,127,255,126,56 
SYMBOL 100,6,31,47,79,93,123,117,127 
SYMBOL 101,17,64 ,4,32,0,137,32,2 
SY MBOL 102,131,219,255,255,255,255,255,255 
RETURN 

REM *## SAME OVER ### 
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FOR A*1 TO 20:FOR B=100 TO 200 STEP A: SOUND 1,B , 1,15, 0 ,0,31:N 
BsNEXT A 

INK O , O :INK 1,26:1 NK 2,15,0:PAPER O : BORDER O : PEN 1 : MODE O 
PEN 2 :LOCATE 6,7 sPRINT"GAME OVER" 

PEN 1 :LOCATE 4,12 :PRINT"PUN I OS:";USING "######" ;p 


PEN 3 :1NK 3,15:L0CATE 5,17:PRIN‘ 
FOR A=1 10 50:A$=INKEYí:NEXT A 
PEN 1 

IF INKEY(60)=0 THEN RON 250 
IF INKEY(46)=0 THEN CALL O 
GOTO 890 


"OTRA? ÍS/N)" 
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CURSO DE 

BASIC+ 

MICROORDENADORES 


C. Postal_Población 


Provincia 


/licroordenador 
!X SPECTRUM 


-i- ' - 


Microordenadores 

_ ___ _ _ _ __ 




Edad 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
F r 'UCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel.: (93) 245 33 06 






Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


Profesión 


CEAC. Aragón, 472 

(Dpto. ) 08013 Barcelona 


CEAC 


1 


Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio, de cualquier otro 
lenguaje de altg nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


GRATUITAMENTE 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de: _ 


Nombre y apellidos. 


Domicilio. 




























